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SEQ 1 
CZUDAGO UDA FMTR DATA FILE MACRO V04.00 23-AUG-82 14:32:58 
TABLE OF CONTENTS 
3 USER DOCUMENTATION 
C2UDAGO UDA FMTR DATA FILE MACRO V04.00 23-AUG-82 14:32:58 PAGE 1 
~TITLE CZUDAGO UDA FMTR DATA FILE 
-SBTTL USER DOCUMENTATION 


-REM ~ 


IDENTIFICATION 


PRODUCT CODE: AC-T355A-MC 

PRODUCT NAME: CZUDGAO UDA FMTR DATA FILE | 
PRODUCT DATE: 27-AUG-82 

MAINTAINER: DIAGNOSTIC ENGINEERING 

AUTHOR: MATT TEDONE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONS T 


B UED AS OMM 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILiTY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1982 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SOOWOWNAUSWN $0 OONAUSWN OO OONG Swe 


WWIWWINWIIRINIPIDINIPININ NN) 2 SO os 


SRVERRASLSS 
o 
“~ 
P*] 
> 
oO 
— 
# 
2 
_ 
@ 
< 
L~J 
— 
a 
— 
“4 
> 
a 





no” 












SYMBOL T 


. ABS. 


UDAF52 - 


000000 
000000 
ERRORS DETECTED: 
VIRTUAL MEMGRY USED: 8192 WORDS ( Ne PAGES) 


DYNAMIC MEMORY oh FOR 72 PAG 
-B: ZUDGAO=B : ZUDGA0.T 


UDA=52_FORMATTER 
TABLE OF CONTENTS 


SS fs os ss ss SS 


CZUDAGO “ee DATA FILE MACRO V04.00 23-AUG-82 14:32:58 PAGE 1-1 


001 
0 


DMACR X04.01 23-AUG-82 13:14:22 


MCALLS 

EQUATES 

DATA STRUCTURES 
MATH power phe 


SOI SUBROUTI 
OVERLAY PROCESSING ROUTINES 
MISCELLANEOUS COMMON ROUTINES 


IMAGE SETUP OVERLAY (F8) 

Shae COMPUTE OVERLAY (G8) 

FCT DOWN-LINE LOAD OVERLAY (F3) 
RCT UPDATE OVERLAY (F4) 

RCT READ OVERLAY (H1) 
FCT=>RCT CONVERSION OVERLAY (F5) 
RCT INITIALIZE OVERLAY (F7) 
FCT READ OVERLAY (F6) 
GET FCT BLOCK FOR D/XBN FORMAT (G2) 
GET FCT BLOCK FOR LON FORMAT (G3) 
RCT CLEANUP OVERLAY (G4) 

FINAL CHECK OVERLAY (H2) 

FCT ~~ yt ay! (F9) 
PBN->D ,X BN CONVERSION OVERLAY (G5) 
ERROR hESSAGE OVERLAY (G6) 
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: = UDA-52 FORMATTER 


COPYRIGHT (C) 1980,1981,1982 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


it SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 


Y PERSON EXCEPT FOR ae E 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


bi INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONS 


I FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WH 


BILITY 
ICH IS NOT SUPPLIED BY DIGITAL. 


IL 
CH 


; VERSION 01.00 
; M. A. PARENTI 16-MAY-80 
; MODIFIED BY: 


VERSION 02.00 


M. A. PARENTI 09-DEC-80 
NEW DM INSTRUCTIONS (MEM => MEM) 
CODE OPTIMIZATION 


31-MAR-81 
M. A. PARENTI 
ADDED DOUBLE WORD ADDRESSING FOR OVERLAY ADDRESSES 


oo. 
M. A, PARENTI 
FIX GROUP OFFSET CALCULATION 


23-APR-81 
a. A. PARENTI 
FIX ZERO GROUP PROBLEM 


24-APR-81 
a. A. PARENTI 
FIX LBN GROUP PROBLEM 
FIX RECAL WAIT PROBLEM 


SEQ 3 


oc 








<3 md od od 


05-MAY-81 
M. A. PARENTI 
FIX SIZE PROBLEM FOR RA81 


13=MAY-81 
M. A. PARENTI 
ADD LIMITED DUP FUNCTIONALITY 


15=MAY-81 
M. A. PARENTI 
FIX SUBUNIT MASK PROBLEM 


15-MAY=-81 
M. A. PARENTI 
ONLY WRITE NON-PAD BLOCKS OF FCT 


15-MAY-81 
M. A. PARENTI 
FIX COMPUTATION OF NON-PAD FCT BLOCKS 


15-MAY-81 

M. A. PARENTI 

FIX BLOCK ZERO FCT PROBLEM 
28-MAY-81 

M. A. PARENTI 

FIX SUBUNIT PROBLEMS 

WRITE ONLY NON-PAD BLOCKS OF RCT 
01-JUN-81 

M. A. PARENTI 

FIX DOUBLE COMPARE PROBLEM 


- A. PARENTI 
IX EXISTING FCT FORMAT PROBLEM 


08-J 
M 
F 


17=JUN-81 
M. A. PARENTI 
FIX SUBUNIT WRITE PROTECT PROBLEM 


17=JUN-81 
M. A. PARENTI 
‘ADD STATUS UPDATES AT VARIOUS PLACES 


22-JUN-81 
M. A. PARENTI 
FIX RBN STARTING BITS PROBLEM 
22-JUN-81 

M. A. PARENTI 

FIX NON-PAD RCT INITIALIZE PROBLEM 
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- A. PARENT 
FIX STATISTI 


18-AUG=81 
M. A. PARENTI 
FIX CLEARING OF ECC THRESHOLD 


I 
CS COUNT OF BAD BLOCKS TO NOT INCLUDE RBN 


16-SEP-81 
M. A. PARENTI 
KLUDGE RECIR AND LAST BITS FOR UDA BUG 


6-O0CT-81 

M. A. PARENTI 

FIX JUSTIFICATION ON RESPONSES 
19-OCT-81 


M. A. PARENTI 
FIX ECC CHECKING AND MINOR FIXES TO QUESTIONS 


13-NOV-81 
M. A. PARENTI 
FIX CONVERSION BLOCK, CLEANUP COUNT 
CHECK FOR NO CORRECTION IF 0 THRESHOLD 


20-NOV-81 
M. A. PARENTI 
FIX PROBLEM WITH BAD RBN WHEN PRIMARY IN FCT 
ADD HEAD VERIFICATION ROUTINE AND MAKE FINAL CHECK 
ROUTINES A SEPARATE OVERLAY 


25-JAN~82 
M. A. PARENTI 
CHECK FOR VALID NUMERICS IN USER RESPONSES 
CHECK FOR UNIBUS ERRORS 
MODIFY LONG TIMEOUT 
CHECK FOR VALID STATUS IN GETUNT 


09-FEB-82 

M. A. PARENTI 

FIX VAX DATE ROUTINE 
18-FEB-82 

M. A, NTI 
CHANGE RETRY RECOVERY ON NON-CHECK PASS READS/WRITES TO NOT 
ISSUE A RECAL/RESEEK SEQUENCE AFTER RECOVERY LEVEL 0 


10-MAR-82 
M. A. PARENTI 
CONVERT TO UDAS2 XFC°S AND MAKE 512/576 


I 
CON OFFSET PROBLEM 
AD RBN WITH PRIMARY IN FCT PROBLEM 


Pd 
wu: 
— 

v 


M. 
FIX 
FIX 





vc 
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15=JUN=82 
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; UDAS2 DISK FORMATTER 


1 
1 
1 
1 
1 
1 
1 
1 


SNS 
Sano ran 
TO rTeTe Tere re rey 


1 


- A. PARENTI 
FIX RBN START BITS FOR PRIMARY 
FIX RCTTOT DECREMENT 
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1 
5 
4 
5 


-SBTTL MCALLS 


~MCALL DMCODE ,OMEND ,OMOVLY 
-MCALL JMP,BR,BEQ,CALL,BPL,BCC,BNE,BMI , RETURN 
eMCALL DMOoT 


SEQ 7 






SEQ 8 
ee te = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 3 






| .SBTTL EQUATES 

; : EQUATES 

5 ; 

3 ; CONDITIONAL FLAGS 

8 Mo 

9 000000 PROD = 0 ZPRODUCTION (1) 

10 <NOT PRODUCTION (0) 

:DEBUG = 0 SIF DEFINED THEN DEBUG MODE 

13 : OFFSETS FOR FORMAT TRACK TABLE 

15 000000 FT.BUF = 0. sBUFFER POINTER OFFSET 

16 000001 FT.LOW = 1. [LOW ORDER HEADER OFFSET 

17 000002 FT.HI = 2. THI ORDER HEADER OFFSET 

18 0003 FT.FLA = 3. ‘FLAG WORD 

20 : 

21 : 
z 
24 ; OFFSETS FOR READ/WRITE BUFFERS 

26 000000 RW.STAT = 0. z STATUS (12-15), NEXT BUFR PTR (0-14) 
27 000001 RW.ER1 = 7 : ALSO USED AS ECC ERROR INDICATOR 
28 000006 RW.DUM = 6. : POINTER TO DUMMY SDI CONTROL BLOCK 
29 2 RW.BUF = Zz : POINTER TO DATA BUFFER 

30 000003 RW.LOW = 3. : 1ST HEADER WORD (LO ORDER LBN) 

31 000004 RW.HI = 4. > 2ND HEADER WORD (HI ORDER LBN 

32 000005 RW.CMD = 5. + SDI RT CHD , 8: 15), HEAD ADDR (0-7) 
33 000000 RW.DAT = 0. : 1ST WORD OF 25 6. WORD DATA BUFFER 

000400 RW.EDC = 256. + EDC FOR 542 M0 
35 000440 RW.E76 = 288. : EDC FOR 576 MOD : 
36 000401 RW.ER2 = 257. : 1ST ECC RESIDUE 








FOR CHECK PASS READ COMMANDS 





44 006. 20 RB.LOW = 0. :LOW ORDER BLOCK NUMBER 

45 000001 ° = 1. HIGH ORDER BLOCK NUMBER 

46 000002 = ¢° READ Bg pe AND TRACK NUMBER 
47 000003 -IM = ° 2 IMAGE COUNTER 









XFC DEFINITION EQUATES 





51 000000 BREAK = 0. BREAKPOINT XFC CODE 

52 000001 FORMAT = 1. ih TRACK XFC a3 

53 00000 READ = ¢- READ _N SECTORS XFC CODE 

54 00000 WRITE = ° 3WRITE “u SECTORS KFC. CODE 

55 000004 SEND = 4. SDI COMMAND XFC ae 

56 000005 RCV = 5. TRECEIVE SDI MESSAGE XFC CODE 
57 CMPDAT = 6. COMPARE DATA PATTERN. KFC CODE 





zc 


SEQ 9 
UDAFS2 = UDA=52 FORMAITER DMACR X04.01 23-AUG-82 13:14:22 PAGE 3-1 
EQUATES 

58 000007 STATUS = 7. sRETURN DRIVE STATUS XFC CODE 

59 000010 ECHO = 8. ECHO DATA TO DRIVE XFC CODE 

60 000011 DINIT = 9. ouaate INITIALIZE XFC COD 

61 00001 = 10. WAIT FOR SEC Renn ke c base XFC CODE 
62 00001 UREAD = 11. TREAD IBUS MEMORY 

63 000014 UWRITE = \¢- sWRITE UNIBUS MEMORY. KFC” CODE 

64 000015 ECC = 13. 200 ECC ON BUFFER 

65 000016 MAINTR = 14. SEND MAINT READ DATA XFC yy 

66 000017 MAINTW = 15. sRECEIVE MAINT WRITE DATA XFC CODE 
67 000020 CVT = 16. CONVERT TO ay teh! ADDRESS XFC CODE 
68 000021 DONE = 17. TERMINATE DM PROGRAM XFC CODE 

14 000022 UPDATE = 18. UPDATE DUP PROGRESS INDICATOR XFC 
4 : GET CHARACTERISTICS OFFSETS 

73 000000 SHORTO = 0. SHORT TIME OUT 

7%4 000001 FRCPY = 1. ;NUMBER OF F/RCT COPIES 

75 000001 RTRY s 1. ;NUMBER OF RETRIES 

76 000001 LONGTO = 1. LONG TIMEOUT 

77 000001 SSBIT = 1. 2SS BIT (SECTOR SIZES ALLOWABLE) 

78 000002 ERRSYM = 2. NUMBER OF ALLOWABLE ECC ERRORS 

79 000002 ERCV = 2. sERROR RECOVERY LEVELS SUPPORTED 
80 000007 REVSEC = 7 7REVS/SECOND 

81 000011 OFFS12 = 9. GROUP OFFSET 512 BYTE 

82 000015 OFFS76 = 13. sGROUP OFFSET 576 BYTE 

83 000000 CYLBN = 0. sCYLINDERS IN LBN AREA 

84 00000 STLBN = ¢° : ORDER STARTING LBN 

85 00000 STR = ° sHIGH ORDER STARTING RBN 

86 000002 STXBN = 2. HIGH ORDER STARTING XBN 

87 000003 STDBN = 3. HIGH ORDER STARTING DBN 

88 000001 STCYL. = 1. HIGH ORDER STARTING CYLINDER 

89 000011 LONTI2 = 9. sNUMBER OF LBNS PER TRACK (512) 

90 000015 LENT76 = 13. NUMBER OF LBNS PER TRACK (576) 

91 000004 RBNTRK = 4. 3 ER OF RBNS PER T 

92 000021 XBNCYL = 17. NUMBER OF CYLINDERS IN XBN AREA 
93 000022 DBNCYL = 18. sNUMBER OF CYLINDERS IN DBN ARE 

Os 000012 LBNH12 = 10. NUMBER OF *S IN HOST AREA (512 
95 000016 LBNH76 = 14. sNUMBER OF LBN'S IN HOST AREA (576 
96 000002 G’ CYL = 2. 3GROUPS/CYLINDER 

97 000003 TR<GRP = Se 3 TRACKS/GROUP 

98 000010 FCTSZ. = 8. sFCT SIZE IN SECTORS 

99 0014 RCTS12 = 12. sRCT SIZE IN LBN'S (512) 

100 000020 RCTS76 = 16. sRCT SIZE IN LBN'S (576) 

101 000005 DATA = 36 zDATA PREAMBLE SIZE 

106 000005 HEAD = 5. ;HEADER PREAMBLE SIZE 

104 
105 ; BIT DEFINITIONS 

106 3 

107 : 
108 000001 BITO = 000001 
109 000002 BIT1 = 000002 

110 000004 Bite = 000004 

111 000010 BIT = 000010 

112 000020 BIT4 = 000020 

113 000040 BITS = 000040 

114 000100 BIT6 = 000100 





- 
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EQUATES 


115 000200 BIT7 = 000200 

116 000400 BIT8 = 0400 

117 001000 BITS = 001000 

118 002000 BIT10 = 002000 

119 000 BIT11 = 4000 

120 010000 BiTl¢ = 010000 

121 20000 BIT1 = 020000 

122 0000 BIT14 = 040000 

123 100000 BIT1I5 = 100000 

124 3 

125 3 

126 3 

127 $ RANDOM DEFINITIONS 

155 ; 

130 177400 HIBYTE = 774 sHIGH BYTE MASK 

131 000377 LOBY = 000377 ;LOW BYTE MASK 

132 177700 HI2BYTE = 177700 sHIGH BYTE PLUS 2 BITS 
133 177600 HIIBYTE = 177600 ;HIGH BYTE PLUS 1 BIT 

134 007777 0 = 007777 zALL BUT HEADER CODE 

135 177760 FCLR = 177760 sCLEAR FOR FRCPY 

136 170377 STCLR = 170377 sCLEAR FOR STARTING BITS 
137 7777 BUFMSK = 007777 sBUFFER CLEAR MASK 

138 04 VLD = BIT2 sSTATUS VALID BIT(1=VALID) 
139 000010 VLD1 = BIT3 sSTATUS VALID BIT(1=VALID) 
140 000200 PARITY = BIT? ZSTATUS PARITY BIT(1=PARITY ERROR) 
141 000400 PARIT1 = BIT8 REAL TIME craon (i mepag) 
196 1 Ss = BIT15 sSECTOR SIZE BIT (0=512 ONLY, 1=512/576) 
128 

\s6 000175 UNSEC = 000175 sUNSUCCESSFUL COMPLETION 
rs 4 5 HEADER CODES 

150 HD.LBN = 000000 3;GO00D LBN 

151 060000 HD.RBN = 060000 3GO0D RBN, PERHAPS UNUSED 
152 030000 HD.REV = 030000 sREVECTORED LBN 

153 110000 HD. = 110000 3 BLOCK 

154 050000 HD.PRV = 050000 sPRIMARY REVECTORED BLOCK 
155 170000 HD.CLR = 170000 sCLEAR HDR CODE 

156 140000 HD.DBN = 140000 :GOOD DBN 

157 120000 HD.XBN = 120000 :GO00D XBN 

158 100000 = BIT15 sPRIMARY BIT IN FCT 

+ +4 010000 FBDHD = BIT12 3BAD HEADER CODE IN FCT 
16} 3 RCT HEADER CODES 

163 00 RC.FRE = 000000 FREE REPLACEMENT BLOCK 
164 020000 RC.P = 020000 sPRIMARY REVECTOR 

165 30000 RC.SND = 030000 3s SECONDARY REV 

166 ’ = 040000 7BAD REPLACEMENT BLOCK 

+ 24 100000 RC.NUL = 100000 sNULL(FILL) BLOCK 

199 3 DRIVE STATUS BITS 

171 100000 RWRDY = BIT15 sREAD/WRITE READY BIT POSITION 





L 1 


SEQ 11 
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17 000002 ATIN = B1T1 yATTENTION 
Wt? 000001 RCVRDY = BITO sRECEIVER READY 

175 : 

176 : 

144 ; GET STATUS BIT MASKS 

179 000001 ST.RU = BITO sRUN/STOP SWITCH 1=IN 

180 000002 ST.PS = BIT1 sPORT SWITCH 1=IN 

181 000040 T.DR = BITS SDIAGNOSTIC REQUESTED 1=YES 

182 170000 T. = BIT12+B1T13+BIT14+BIT15 SWRI TE PROTECT SWITCH SU:0,1 1=IN 
183 000020 ST.SR = BITS :SPINDLE READY 1=YE 

184 001000 T.0B = BIT9 [DIAG CYL ACCESS ENABLED 1=YES 
185 002000 T.F = BIT10 sFORMAT CYL ACCESS ENABLED 1=YES 
186 0004 ST.IN = BIT2 :DRIVE INITIALIZED 1=YES 

187 000010 ST.WE = BITS WRITE ERROR (WRITE LOCKED) 

188 20 ST.DF s BIT4 *DIAG FAILED = CANNOT DRIVE CLEAR 
189 000374 ST.ERR = 000374 [COMBINED CLEARABLE ERRORS BITS SET 
139 2 ST.ERB = +e ‘ERROR BYTE OFFSET (3RD WORD) 

192 : 

193 ; OVERLAY TABLE OFFSETS 

13 : 

196 000023 OVCNT = 19. sNUMBER OF OVERLAYS 

197 000003 OVLEN = 3 * LENGTH OF 1 OVERLAY BLOCK 

198 000000 LEN = 0 3W COUNT OVERLAY 

199 000001 HSTLO = 1 :LOW ORDER UNIBUS ADDRESS 

200 000002 HSTHI = 2 sHI ORDER UNIBUS ADDRESS 

201 000000 = 0 [OFFSET INTO TABLE 

202 000003 F2 = 3 ZSECOND OVERLAY OFFSET INTO TABLE 
203 F3 = 6. s THIRD OVERLAY OFFSET INTO TABLE 
04 000011 FZ > 9. ZFOURTH OVERLAY OFFSET INTO TABLE 
205 000014 F5 = 12. sFIFTH OVERLAY OFFSET INTO TABLE 
06 000017 F6 = 15. sSIXTH OVERLAY OFFSET INTO TABLE 
207 000022 F7 = 18. i SEVENTH H OVERLAY OFFSET INTO TABLE 
208 000025 F8 = m. sEIGTH OVERLA 

209 000030 F9 = 24. sNINTH OVERLAY 

210 000033 G2 = 27. sELEVENTH OVERLAY 

211 000036 G3 = 30. *TWELVTH OVERLAY 

212 000041 G64 = 33. : THIRTEENTH OVERLAY 

213 4 65 = 36. ; TEENTH OVERLAY 

214 000047 G7 = 39. SSIXTEENTH OVERLAY 

215 00052 68 = 42. :SEVENTEENTH OVERLAY 

216 000055 H1 = 45. ‘NINETEENTH OVERLAY 

217 00060 G1 > 48. : TENTH OVERLAY 

218 0063 66 = 51. 

219 000066 H2 5 54. 

220 3 

221 3 

222 : FLAG EQUATES 

225 000001 FCTAVL = BITO :FCT AVAILABLE 

226 000010 DBN = BIT3 S FORMAT DBN AREA 

227 000100 REVECT = BIT6 SREVECTOR FLAG 

228 001000 PRI = BIT9 ‘PRIMARY FOUND FLAG 


2c 





"1 
SEQ 12 


UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 3-4 
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000013 


000016 


FCTEMT 


DMBUFL 


Bee Be Ge Se Be THe Ge Be Be Be 


sFCT EMPTY FLAG 
;D0 BEST GUESS IF FCT BAD 


DOWN 
10 BEST GUESS FORMAT 

11 sONLY URITE FCT SCRATCH 

13 INIT RCT FLAG 

14 FORMAT FINISHED FLAG 

12 i CHARACTERISTICS DONE FLAG 
15 RETRY FLAG 


vwunnnnnnnnnnn 
bosBesdestbelortesTostosTosiestes]ss) 
Pmt fad feed Ged ad Fe Pd Pad Pmt at he be 
AH 4H a4 4 44 4 


nm 
C 
> 
a 
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Cc 
Po 
=~ 
m 
mn 


po As PROTECT FLAG 
sRETRY DONE ON THIS SECTOR 


FLAG FOR ERROR EXIT TRY 
GONE FL 


7BAD HEADER ON CHECK PASS READ 

RCT INIT DONE (WITH ONE FULL PAD BLK) 

STARTUP QUESTIONS FINISHED 

FLIP FLAG FOR CONVERSIONS 

:REPEAT QUESTION FLAG FOR STARTUP 
FLAG FOR GETB MACRO 

SFLAG FOR STOB MACRO 

FLAG FOR TEST OF | atone IN VERHD 

;FORMAT MODE (0=512,1 

;PRIMARY IN FCT 


nnnnnnnnnnnnnne 
WBoOwwowwwwwwwvwowqaw 
bet bad eet Bey Bet at ims Bes et ee Fes bt ee 
4444 St St Ht SH St Ht St St Ht St tt 
= BB OONOULSWN OO 
Swn-o 


PHYSICAL CONVERSION XFC BLOCK EQUATES 

: CYLINDER Aang de 

BLOCK NUMBER PARAMETER 
BLOCKS PER TRACK PARAMETER 
ZONLY FOR RBN'S 

CYLINDER RETURNED 

;GROUP RETURNED 

: TRACK RETURN 


RNED 
STARTING SECTOR RETURNED 
:SECTOR FROM INDEX 


—— ODOAOULNUS 
se 


—O-r+ es « 
ee 


DMBUF ‘OFFSETS 


14. BUFFER LENGTH 


FCT BLOCK OFFSETS 


2c 
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Pee ge eee Gee ete. ee Oe A | 
SEQ 13 
“uD UDAF 52 = UDA-52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 3-5 | y 
| 
' 86 000002 FSER Ss = 2 ZSERIAL NUMBER 
000001 INST = 1 SFORMATTIN INSTANCE NUMBER 
$5 900016 CSi2s= 14. ZCOUNT OF USED 512 ENTRIES IN FCT 
289 00002 (576 —is= 16. : COUNT OF USED 576 ENTRIES IN FCT 
290 000012 FDAT = 10. :MOST RECENT FORMAT DATE 
291 000025 FCTFLG = 21. [FCT FLAG FOR GOOD/BAD FCT 
296 100000 NOFCT = BIT15 ZFLAG = 0 = FCT GOOD | 
25 ; 1 = FCT KNOW BAD 
| 294 ; 
| 295 $ 
296 : RCT BLOCK OFFSETS 
i : 
299 000000 RSER = 0 7SERIAL NUMBER OFFSET 
301 ; MISC DEFINITIONS 
302 3 ) 
392 ! | 
305 00006 T = 6. ZLENGTH OF 2 IMAGE ENTRIES 
306 000011 THREB = 9. [LENGTH OF 3 IMAGE ENTRIES 
307 000004 RDLEN = 4. ZLENGTH OF CHECK PASS READ BLOCK 
308 000002 ERLEN = 2. ZLENGTH OF REVECTOR TABLE ENTRY 
309 000004 REVLEN = 4. ‘LENGTH OF SECONDARY TABLE 
310 013400 RWC = 013400 [SDI READ COMMAND 
311 122400 WRCMD = 122400 :SDI WRITE COMMAND 
313 100000 RDCMD = 100000 ‘SIGNAL TO XFC NO MORE BLOCKS 
13 010000 ECCF = BIT12 3ECC ERROR BIT 
344 000200 RBNRPT = 128. ER OF RBN COPIES IN REVECTOR 
315 000400 SECSI6 = 256. :SECTOR SIZE IN WORDS FOR 512 BYTE | 
316 000440 SECS’8 = 288. TSECTOR SIZE IN WORDS FOR 576 BYTE | 
317 000003 IMLEN = 3, [LENGTH OF IMAGE BLOCK 
318 100000 Eo . BIT15 [BAD FLAG IN IMAGE BUFFER | 
319 100000 LAST = BIT15 ZLAST FLAG IN IMAGE | 
320 040000 RECIR = BIT14 ZRECIRCULATE IN FORMAT IMAGE BUFFER 
321 126736 M512= 126736 :FCT MODE INDICATOR FO 
074161 M576 == 074161 FCT MODE INDICATOR FOR 576 
23 100000 TIMVAL = 32768. TIMER LOOP VALUE 
24 000010 MAXTRY = 8. tFINAL SECONDARY WRITE RETRY LIMIT 
325 001362 DUPOVL = OVE .MN-2 SOVERLAY STARTING ADDRESS FROM DUP 
326 40 = 00040 [BLANK IN LOW ORDER BYTE 
327 020040 BLANWD = 20040 :WORD WITH 2 ASCII BLANKS 
329 : 
330 ; STATUS OFFSETS 
i : 
333 000000 MASK = 0 :SUBUNIT OFFSET MASK 
334 000000 UID = 0 ‘UNIT NUMPTR OFFSET 
336 5 
337 ; BUFFER DEFINITIONS 
338 : BUFFERS ARE 301 WORDS LONG 
340 010000 BuF1 = = 010000 :BUFFER 1 
341 010455 BUF2 = BUF 1+301. ‘BUFFER 2 
| 342 011132 BUF3) = BUF 2+301. SBUFFER 3 
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MAMAN 


22 
—_ 
NURS FSNSSRS 


Soooooooooo 
SEAL INE SS 


ee os tA | 


SSS 
Wwr-900 


WWW 
os 
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Ss 
3 
5 
6 
7 
8 
9 
0 
; 
4 
5 
6 
7 
8 
9 


BUF 3+301. 
BUF 4+301. 


naonnnnwnn 

@ 
Cc 
n" 
+ 
Ww 
So 
ob 
e 


BUF11+500. 
BUFFER ASSIGNMENTS 


nnnnnnnnnnn 
@ 
Cc 
nn 
io 


= 37777 





E 
E 
E 
E 
E 
E 
FE 
T 


;BUF 
START O 


ODT 


sREAD/WRITE BUFFER 


sBUFFER OF BAD PBN'S 


zDATA FOR GOOD SECTOR 
;DATA PATTERN FOR ay A REVECTOR 


; SECONDARY REVECTOR BUFF 
COMMAND BUFFERS 

IRCT BLOCK BUFFER 

7RBN FORMAT BUFFER 

HEAD ee ie BUFFER 

USED IN FINAL rr pel 

FORMAT IMAGE BUFF 


;BUFFER EXCESS AFTER FORMAT IMA 
;1S USED TO HOL CKS 








F THE FORMAT BUFFER AREA 
MAX BUFFER ADDRESS 





F322 





gg 
se 


NOAMNEWN OC CONAOUSWN “ODO ONOUSWI— 


SSsssssss 


AGIA UIUIUI ES BE BRE RHR 
NOUEWN SO OONOAUS WhO 


sssssssss 
SHRP RRRES 
RSRSRSRSE 


000000 


000000 
000000 
000000 


000000 
000000 


~SBTTL DATA STRUCTURES 
DMCODE YOWPR.O,1I04, 15,895. 


DUMMY DOUBLE WORDS AND DUMMY SDI COMMAND 


? 
UDA UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 5 
DATA STRUCTURES 


ENTRY: JMP START 
: DATA STRUCTURES 
: RETRY COUNTERS 
UN.ERR: .WORD 0 
UN.ERT: .WORD 0 
UN.ERI: .WORD 0 
UN.SEK: . 0 
; READ COMMAND BLOCK 
WRBLK 
RDBLK: .WORD 100000 
“WORD 0 
"WORD 0 
“WORD 0 
"wORD 0 
“WORD 0 
SLIM: WORD 200 
“WORD SCR=5 
DDUMMY: :WORD 0 
WORD 0 
TEMP2: 
MULPC: .BLKW 2 
WORD 0 
OFFSET 
TEMP:  .BLKW 2 
: CURRENT UDA PORT 
UNIT: .WORD 0 
UNNO: .WORD 0 
; MESSAGE TABLES 
CR.GST: MSG GST,1,ST, 
CR.GCR: MSG GCR.1,CR 
CR.GSR: MSG GSR.2.SCR 
“DIS: MSG DIS.2,ST, 
“RUN: MSG RUN. 1.ST.6 
CR.ACC: MSG ACC,3,ST.6 
“CLR: MSG DCLR,2, ST 
SSEK: MSG ISEEK,6, $f 
“RCL: MSG IRECAL,1,$ 


sDMODT ADDRESS 
JUMP TO START LOCATION 


UNSUCCESSFUL CMD RETRY CNTR 

2 TRANSMISSION ERROR RETRY CNTR 
ZINITLIZATION ERROR RETRY CNTR 
7SEEK RETRY COUNT 


STATUS POINTER 
:POINTER TO DATA BUFFER 
ST "ae ™ EXPECTED HDR 


TREAL-TIME SDI _ COMMAND 
POINTER TO SDI BLOCK 


Ps ye CMP LIMIT 
POINTER TO SUBUNIT CHAR 
; DOUBLE WORD FOR 


sUSED FOR COMPUTATIONS 


3SDI_ INTERCONNECT 
UNIT NUMBER ENTERED 


3GET STATU 
3GET CHARACTERISTICS 
GET SUBUNI T CHARACTERISTICS 


UNL ORIV 

3LOAD DRIVE 

3SET FORMAT ACCESS 
tt CLEAR 


+ SEEK 
sRECALIBRATE 


SEQ 15 





YYYLUNLYESSSSS 
NOULSWN—OUhWA— 


VIVIMNMMA MMMM 


== 
bp 4 
RS 


SSSSSSSSSS 
JeIRANVSS 


FoWASSRLTARAN LS SS LSSLALLSSELSARAL ASS 
SeSeaess 


gassggssssgessseessgeesees 


AXON 


ae td etd ad Oo oh a et 
oat od 
No 


CR.ERV: 
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DATA STRUCTURES 


MSG ERECOV,2,ST.6 


CR.ONL: MSG ONLINE ,2,ST,6 


IRECAL: 
ERECOV: 


ONL INE: 


es 
CURPBN: 
CUPTRK: 


CURBN: 


CURLBN: 
CURXBN: 
STASEC: 
HOLDBN: 
HOLRBN: 
HOLDPN: 
CYLNUM: 
SECTRK: 
SECT76: 
SECT12: 


MESSAGES AND COMMANDS 


«WORD 000011*256. 
-WORD 000207*256. 
«WORD 00210*256. 
-WORD QO 

-WORD 000204*256. 
WORD 0 

WORD 000014*256. 
WORD 000201*256. 
- WORD 006 

-WORD 000005*256. 
WORD 374 

-BLKW 7 

oo 11. 


19, 
WORD 000012*256. 


— 
o < 
ooo 


WORD 000216*256. 
we 256. 
WORD 090213+256. 


DISK LOCATION POINTERS 


5 


o 
SGoooooocoooooooooeooooooo 


ERROR RECOVERY COMMAND 
sONLINE COMMAND 


sGET STATUS rite 
iGET CHARACTERISTICS 
GET SUBUNIT CHARACTERISTICS 
: SUBUNIT MASK 
[UNLOAD DRIVE 
;NO SPIN DOWN MODIFIER 
3 INITIATE LOAD 
ACCESS DIAG AND FMT CYL 
{MASK BYTE/MODE BYTE 
CLEAR 
: CLEAR 
STATUS MESSAGE BUFFER 
;CHAPACTERISTICS MESSAGE BUFF 


;SUBUNIT CHARACTERISTICS BUFF 
3 INITIATE SEEK 


SINITIATE RECAL 
ERROR RECOVERY COMMAND 
;RECOVERY LEVEL 


ZONLINE COMMAND 
COMMAND TIMEOUT (SECS) 


CURRENT, REN 
; CURRENT, PBN 


CURRENT TRACK 
;CURRENT BLOCK NUMBER 


3FOR RCT INIT 
CURRENT XBN NUMBER 

3FOR HEAD VERIFICATION ROUTINE 
BLOCK NUMBER OF FIRST BLOCK ON CYL 
BLOCK NUM OF FIRST RBN ON CYLINDER 
:PBN OF FIRST SECOTR ON TRACK 
;CURRENT, CYLINDER NUMBER 
3SECTORS/TRACK (CURRENT VALUE) 
3SECTORS/TRACK 576 

;SECTORS/TRACK 512 


E 2 


SEQ 17 
UDAF52 = UDA-52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 5-2 
DATA STRUCTURES 
115 001613 000000 «WORD 0 7 
116 001614 000000 SECTCY: .WORD 0 3 SECTORS/CYLINDER 
117 001615 000000 - WORD 
118 001616 LBNLBN: .BLKW 7LON" S IN LBN per 
119 001620 RBNLBN: .BLKW [RBN'S IN LBN AREA 
120 001622 XBNSEC: .BLKW sSECTORS IN LBN AREA 
121 001624 TRKCYL: .BLK i TRACKS/CY LINDER 
122 gp toes LONCYL: .BLKW [NUMBER OF LBN CYLINDERS 
123 0016 LBNPCY: .BLKW sLBN'S/CYLINDER 
124 001632 RBNPCY: .BLKW =RBN' S/CYLINDER 
125 001634 000000 REVRBN: .WOR 0 ;REVECTORED RBN NUMBER 
126 001635 000000 «WORD 0 
127 001636 000000 CUROVL: .WOR 0 CURRENT OVERLAY 
1¢8 001637 HGHPBN: .BLKW 2 *HIGHEST PBN IN LBN AREA 
130 e 
131 : 
132 3 STACK 
133 e 
134 3 
135 3 
136 001641 -BLKW 31. STACK 
137 001700 000000 STACK: .WORD 0 ;TOP OF STACK 
is 001701 000000 STCKSV: .WORD 0 * STACK PTR TEMP SAVE 
140 8 
141 3 MISC DEFINITIONS 
103 : 
144 ota 000000 FLAG eWORD 0 3FLAG WORD 
145 0017 000000 F eWORD 0 TFLAG WORD 
146 704 000000 ERFLAG: .WORD 0 aie cae’ FLAG 
147 002705 000000 eWORD 0 sRCT WRAP FLAG 
148 706 000000 -WORD 0 [POINTER TO PBNTAB ENTRY 
bay = dEA 4 000000 ERRBUF: .WORD 0 [POINTER TO BEGINNING OF REVECTOR BUFFER 
150.001710 000000 E eWORD 0 [MAX NUMBER OF REVECTORS BEFORE 
1St - sRCT UPDATE ROUTINE IS CALLE 
152 001711 000000 ERR: -WORD 0 : R OF SECTORS IN ERROR 
153 001712 000000 HOLD: .WORD 0 sDOUBLE WORD TEMP STORAGE 
154 001713 000000 -WORD 0 
155 001714 000000 EIMAGE: .WORD 0 sADDRESS OF END IMAGE BLOCK 
156 001715 000000 STARIT: .WORD 0 sSTARTING ADDRES OF THIS PASS 
157 001716 000000 SKPCNT: .WORD 0 [OFFSET FOR FIRST READ CHECK 
158 001717 000000 TBLK: .WORD 0 SINTER LEAVE 
159 36 - BI-LEAV 
160 39 - TRI-LEAVE 
161 001720 RCTTOT: zALSO RCT TOTAL HOLDING AREA 
162 001720 004704 CUTOF: .WORD g5e8. sSECT/SECOND CUTOFF 
163 001721 000000 WORD [DOUBLE WORD 
164 Oot ss 000000 FCNT:  .WORD [COUNT OF VseD FCT ENTRIES FOR FORMATTING 
165 00172 FCTSUB: .BLKW sSIZE OF FCT SUBTABLE 
166 001725 FCTFMT: .BLKW sSIZE OF ONE FCT COPY 
167 001727 RCTFMT: .BLK sSIZE OF ONE RCT COPY 
168 001731 000000 FCTCPY 8 SNUMBER OF FCT COPIES 
169 sates 000000 NEXT1: . WORD sMUTLI-COPY COUNTER 
170 001733 000105 INI eWORD 69. s INITIAL VALUE FOR EDC 
171 001734 000400 CNT eWORD SECSI6 sCOUNT FOR EDC 








UDAF52 = UDA=52 
DATA STRUCTURES 


17 Oot? 
173 0017 
174 001737 
175 001740 
176 001741 
177 00174 
178 00174 
179 001744 
180 001745 
181 001746 
182 001747 
183 001750 
184 

185 

186 001766 
187 001772 
188 001776 
189 001777 
190 002000 
191 002001 
136 002002 
193 002003 
194 002004 
195 002005 
196 002006 
197 002007 
198 002010 
199 002011 
200 002012 
201 

202 

203 

204 

205 

206 

207 

208 

209 002013 
210 002014 
211 002015 
212 002016 
213 002017 
214 002020 
215 002021 
216 002022 
217 002023 
218 002024 
219 00202 
220 002026 


cauieuemeenutemant 


SEQ 18 | 
FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 5-3 


000100 LTO WORD 100 LONG TIMEQUT 
002000 $10:  cWORD 1024. {SHORT TIMEOUT (IN MILLESECS) 
000000 ERPNT: “WORD 0 REVECTOR LIST POIN 
000000 BUFPNT: (WORD 0 BUFFER POINTER FOR FCT READ 
000000 REVCNT: .WORD 0 REVECTOR COUNT 
000000 FCTPTR: .WORD 0 POINT TO CURRENT LOCATION IN FCT LBOKC | 
000001 FCTCNT: .WORD 1 “CURRENT FCT BLOCK | 
000000 "WORD 0 | 
000000 FCTNPD: :WORD 0 :NONCPAD FCT BLOCKS 
000000 RCTLBN: .WORD 0 LBN'S IN R 
000000 MNCNT 0 oeeD FET ENTRIES 
000016 DMBUF: :REPT 14. MAINTENANCE BUFFER 
“WORD 0 :MAKE SURE IT IS 0 
DATE: ‘BLKW 4 DATE BUFFER 
SERNUM: :BLKW 4 :SERIAL NUMBER 
000000 FCTREV: .WORD 0 SFCT ENTRI’S AT CERTAIN POINTS 
000000 LBNBAD: {WORD 0 TOTAL REVECTORED LBN'S 
000000 RCTBAD: .WORD 0 : BAD RCT BLOCKS 
000000 DBBAD: -WORD 0 TOTAL DBN BAD BLOCKS 
000000 XBBAD: WORD 0 TOTAL LBN BAD BLOCKS 
060001 FCMSG: :WORD 60001 DUP CODE 
000000 IMSTAR: .WORD 0 [POINTER TO START OF IMAGE 
000000 HPREA: -WORD 0 HEADER PREAMBLE LENGTH 
000000 DPREA: <WORD 0 [DATA PREAMBLE LENGTH 
000000 ST.LBN: .WORD 0 STARTING LBN BITS 
000000 ST:REN: WORD 0 STARTING RBN BITS 
000000 ST.XBN: -WORD :STARTING XBN BITS 
000000 ST. “WORD 0 STARTING DBN BITS 
: OVERLAY POINTERS 
: NOTE: 
: WHEN ADDING AN ENTRY TO THIS TABLE EQUATE 
: OVCNT MUST BE INCREMENTED | 
001231 OVLTBL: .WORD OVL.F1 LENGTH OF FIRST OVERLAY 
015156 “WORD OVS.F1 LOW ORDER HOST ADDRESS 
000000 “WORD 0 THIGH ORDER HOST ADDRESS 
001660 "WORD OVL.F2 LENGTH OF SECOND OVERLAY 
020714 “WORD OVS.F2 LOW ORDER HOST ADDRESS | 
000000 "WORD 0 THIGH ORDER HOST ADDRESS | 
000465 “WORD OVL.F3 LENGTH OF THIRD OVERLAY 
027330 “WORD OVS.F3 LOW ORDER HOST ADDRESS | 
000000 "WORD 0 HIGH ORDER HOST ADDRESS 
000776 “WORD OVL.F4 LENGTH OF FOURTH OVERLAY 
030502 “WORD OVS.F4 LOW ORDER HOST § 
000000 “WORD THIGH ORDER HOST ADDRESS 
001411 “WORD OVL.FS LENGTH OF FIFTH OVERLAY | 
033512 “WORD OVS.F5 LOW ORDER HOST ADDRESS | 
000000 "WORD 0 THIGH ORDER HOST ADDRESS 
000407 WORD OVL.F6 [LENGTH OF SIXTH OVERLAY | 
040056 “WORD OVS.F6 LOW ORDER HOST ADDRESS 
000000 "WORD 0 THIGH ORDER HOST ADDRESS 
000551 "WORD OVL.F7 LENGTH OF SEVENTH OVERLAY | 
036534 “WORD OVS.F7 LOW ORDER HOST ADDRESS | 
| 
| 
] 





BURAK 
S 
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S 
nm 
=] 
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Im 


64 102 
265 002103 
266 002104 


“WORD 


WORD 


: “BLKW 
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DATA STRUCTURES 


0 
OVL.F8 
“oie 


OVL.F9 
0 9 


OVL .G2 
0 2 


OVL .G3 
bew 


OVL .G4 
0 


0 
OVL.GS5 
OVS. 

0 
OVL.G? 
OVS.G7 


OVL.G8 
renee 


OVL.H1 
VS.H1 


OVL.G1 
OVS.G1 





HIGH ORDER HOST ADDRESS 
;LENGTH OF EIGHTH 28 hs a 


ORDER T ADDRESS 
SLENGTH OF ELEVENTH ss 
LOW ORDER HOST ADDRESS 
;HIGH ORDER HOST ADDRESS 
LENGTH OF TWELFTH OVERLAY 
3LOW sea un HOST ee 


HIGH ORDER HOST ADDRESS 
;LENGTH OF THIRTEENTH OVERLAY 
T ats RESS 


HIGH ORDER HOST ADDRESS 

3LENGTH OF FIFTEENTH OVERLAY 

LOW ORDER HOST ADDRESS 

HIGH ORDER HOST ADDRESS 
LENGTH OF ee OVERLAY 

;LOW ORDER HOST eenae 

HIGH ORDER HOST ADDRESS 

LENGTH OF SEVENTEENTH OVERLAY 
2 LOW R HOST ADDRESS 

HIGH ORDER HOST ADDRESS 

3LENGTH OF EIGHTEENTH OVERLAY 
OW ER HOST ADDRESS 


FOR BUFFER OVERLAYS 





oc 


4 

5 

g 002110 
8 

9 

10 

11 002124 
12 002125 
13 002126 
14 002327 
15 002130 
16 002131 
17 

18 

19 002132 
20 002133 
21 002134 
22 002135 
23 
ra 

25 

ig 0021 
$8 000137 
29 002140 
30 002141 
31 002142 
32 002145 
33 002144 
34 002145 
35 002146 
36 002147 
37 002150 
38 002151 


SS 
ss 

_ 
Vin 
Wr 


xs 
—_ 
g 
SN 

VIVSSSERASIVHAE 
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DATA STRUCTURES 


TWOC: 


SNDCNT: 
RTYCNT: 
CURPNT: 
UPDPNT: 
TOTRCT: 


RCTCNT: 
PCNT: 


SECSI2Z: 








CONVERSION BUFFER 


: .BLKW 12. 


COMPARE DATA XFC CONTROL BLOCK 


COUNTERS 


: WORD 
: WORD 
WOR 


{WORD 
WOR 


\—J 
Sooomooecsceso GOOOwvS—-COECcoooooooo 


CONVERSION BUFFER 


NUMBER OF WORDS IN PATTERN 
BUFFER TO COMPARE(NOT FIRST WORD) 
He fs WORD OF PATTERM 


sFOR TESTING VERIFICATION 

SECTOR COUNT 

NUMBER OF ORIGINAL CHECK PASS READ 
ER OF ERROR READS 


0 
NUMBER OF CYLINDERS TO FORMAT 
CURRENT HEADER 
CURRENT GROUP 
sNUMBER OF GROUPS TO DO 
sNUMBER OF bee 10 dO 


zsWORD CONSTANT O 
3 E WORD 

sWORD CONSTANT OF 2 

3 E WORD 

sCOUNT OF SECONDARY REVECTORS 
sCOUNT OF SECTORS RETRYED 
sPOINT FOR HEAD VERIFICATION 
sPOINTER FOR RCT UPDATE 

s TOTAL LBN'S IN RCT'S 


CURRENT RCT BLOCK 

3PBN BLOCK COUNTER 

COUNT FOR XBN DLL 

sRETRIES FROM SDI 

sRECOVERY LEVELS SUPPORTE BY DRIVER 
sTEMP FOR RETRY COUN 

TEMP FOR ERROR RECOVERY LEVEL 
sCURRENT SECTOR SIZE 


SEQ 20 


ee ee ee 


ee eee ie eee Re ee oe eedee eee Oe 
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MATH SUBROUTINES 


-SBTTL MATH SUBROUTINES 
SUBROUTINES 


DOUBLE ADD ROUTINE 
INPUT PARAMETERS 


Dee Se Se Ge Be Be Se Be Ge Ge Gs Be Ge Ge Se Se Se 


1 

2 

3 

4 

5 

6 

4 

8 

10 

R3 CONTAINS POINTER TO OPERAND 1 

F R4 CONTAINS POINTER TO OPERAND 2 

1? OUTPUT PARAMETER 
+4 R4 CONTAINS THE RESULT 
19 002172 ADD PUSH RS SAVE A SCRATCH REGISTER 
20 002173 PUSH R1 SAVE ANOTHER 
21 002174 104235 MOV (R3)+,R5 GET LOW ORDER OPERAND 
22 002175 104131 Vv (R3),R1 GET HIGH ORDER OPERAND 
23 002176 105245 ADD (R4)+,R5 zADD LOW ORDER oa “neg 
24 002177 BCC DADD1 sBRANCH IF NO C 

25 002201 115401 INC R1 sADD ONE TO HIGH. i CARRY 
26 002202 105141 DADD1: ADD (R4) ,R1 ADD OP 2 
$f Oo esor 100141 MOV R1,(R4) SAVE HIGH ORDER 

8 002204 100445 MOV R5,-(R4) 7SAVE LOW ORDER 
29 002205 POP R1 sRESTORE R 

30 002206 POP R5 RESTORE RS 

31 002207 117403 EC R3 RESTORE R3 





A a ee ee ee ee ee ee ee ee ee 


oC 


2 
& 
5 
6 
? 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
20 
1 
2 
3 
4 
5 


002212 


DSUB: 


10$: 
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MATH SUBROUTINES 


3; INPUTS: 
5 R 
$ RG 
3; OUTPUT: 
3 RG 
PUSH R1 
MOV (R 
MOV (R 
SUB (R 
BCC 10 
DEC R1 
SUB 1¢ 
MOV & 7] 
MOV RS 
POP RS 
RETURN 


++ 
DOUBLE PRECISION FIXED POINT SUBTRACT ROUTINE 


POINTER TO OPERAND 1 (SUBTRAHEND) 
POINTER TO OPERAND 2 (MINUEND) 


POINTER TO RESULT WHERE (R4) = (R4) = (R3) 


; SAVE REGISTERS 
GET 


BORROW FROM HI ORDER OPERAND 


; SUBTRACT HI ORDER OPERANDS 


STORE HI ORDER RESULT 


; STORE LO ORDER RESULT 
; RESTORE REGISTERS 


} 
————— 





UDAFS2 = ane ® FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 9 


MATH SUBROUTINES 
1 002232 DMUL : ue 

$ 3 DOUBLE PRECISION FIXED POINT MULTIPLY ROUTINE 

5 : = POINTER TO MULTIPLIER (SINGLE PRECISION) 

$ 3 R4 = POINTER TO MULTIPLICANT (DOUBLE PRECISION) 

8 : OUTPUT 

° ; = POINTER TO RESULT WHERE (R4) = (R4) * (R3) 

11 : 

12 002232 PUSH _RO, R3 : SAVE RO & R3 

13 002234 104137 MOV (R3),RO : GET MULTIPLIER 

14 002235 BNE $$ : MULTIPLIER NOT = 0 

15 002237 100147 MOV RO, (R4) ; LOAD LO ORDER RESULT 

16 002240 100647 000001 MOV RO. 10R4) ; LOAD HI ORDER RESULT 

17 002242 BR 208 : RETURN 

18 002244 104140 001405 5$: MOV (R4) ,MULPC : COPY MULTIPLICANT FOR DADD 
19 002246 104640 000001 001406 MOV 1(R4) ,MULPC+1 

20 002251 104203 001405 MOV #MULPC,R3 
21 002253 117407 10$: DEC Z orgy! MULTIPLIER FOR *1 
22 002254 BEQ $ > MULTIPLIER 

23 002256 CALL DADD ; PERFORM ITERATIVE ADDS 
24 002260 BR 0$ 
25 002262 20$: POP R3,RO : RESTORE RO & R3 
“ 002264 RETURN 


a | ne ed 








1 002266 


4 

5 

6 

7 

8 

9 
10 

11 

12 

13 

14 

15 

16 
17 002266 
18 002272 
19 002273 
20 002274 
21 002275 
22 002277 
23 002301 
24 002302 
25 002303 
26 002305 
27 Oeste 
28 OOS 11 
29 002313 
30 002315 
31 002316 
32 002320 
33 002321 
34 002322 
35 002324 
36 002325 
$s 002331 


105207 


000001 


000001 


DDIV: 


10$: 


15$: 


208: 


30$: 
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MATH SUBROUTINE 


Pp 
RETURN 


OUTPUT 


+4 
whee FIXED POINT DIVIDE 


R3 = POINTER TO vane must hee ——— 
R4 = POINTER TO DIVIDENT (DOUBLE PRECISION) 


R3 = POINTER TO REMAINDER 
R&4 = POINTER TO QUOTIENT 


NOTE = THE CASES WHERE EITHER THE DIVISOR OR DIVIDENT ARE ZERO, 


ARE NOT CONSIDERED IN THIS ROUTINE. 


RO,R1,R2,R5 
RO 


R5,R2,R1,RO 


; SAVE REGISTERS 


CLP LO ORDER QUOTIENT REG 


; CLR HI ORDER QUOTIENT REG 
; GET DIVISOR 

; GET HI ORDER DIVIDENT 

; DIVISOR NOT = 0 

; GET LO ORDER DIVIDENT 


IS DIVIDENT < DIVISOR ? 
NO, CONTINUE 


YES, STOP 
SYNTHESIZE DIVIDE 

INCR LO ORDER QUOTIENT 
DID NOT OVERF 

ADJUST HI ORDER QUOTIENT 


GET REMAINDER 

LOAD LO ORDER QUOTIENT 
LOAD HI ORDER QUOTIENT 
LOAD REMAINDER 

RESTORE REGISTERS 





MATH SUBROUTI 


4 

5 

6 

? 

8 

9 
10 
i. 

13 
14 002333 
15 002334 
16 002335 
17 002336 
18 002340 
19 002342 
20 002344 
21 002346 
22 002347 
23 002350 
24 002352 
25 002354 
26 002355 
27 002356 
28 002360 
29 002362 
30 002363 
31 002365 
32 002366 
33 002367 
34 002370 
35 002372 
36 002373 
37 002375 


000001 
000001 


000000 


077777 


Dre Se Ge Be Ge Se Be Oe Be Oe Se Be Oe 


2 
0 


DCMP4: 


DCMP2: 


DCMP1: 


DCMP3: 
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DOUBLE COMPARE 

INPUT PARAMETERS 

R3 CONTAINS A POINTER TO THE FIRST OPERAND 

R4 CONATINS A POINTER TO THE SECOND OPERAND 

OUTPUT PARAMETERS 

THE FLAGS ARE SET AS IF A SINGLE PRECISSION ‘‘CMP’’ HAD OCCURED 

s SAVE RO FOR USE AS SCRATCH 


PUSH 1 ZSAVE R1 FOR USE AS SCRATCH 
MOV (R4),R1 :GET LOW ORDER DEST OPERAND 
MOV 1(R4),RO [GET HIGH ORDER DEST OPERAND 
CMP 7(R3),RO 7D0 ACTUAL HIGH ORDER TEST 
BEQ DCMP1 :G0 DO ADDITIONAL TESTING 
BCC DCMP2 :SRC HI, CLEAN UP AND RTN 
POP R1 SRESTORE R1 

POP RO SRESTORE RO 

CMP #0,R4 :SET CONDITION CODES = SRC LSS 
RETURN [AND RETURN 

POP R1 SRESTORE R1 

POP R SRESTORE RO 

CMP #077777,R4 [SET CONDITION CODES = DST LSS 
RE TURN SAND RETURN 

CMP (R3) ,R1 [TEST LOW ORDER 

BNE CMP [BRANCH IF NOT EQUAL 

POP [RESTORE R1 

PoP RO SRESTORE RO 

CMP R4 RG [SET CONDITION CODES = EQUAL 
RETURN SAND RETURN 

MP (R3) ,R1 :COMPARE AGAIN 


C 
BCC DcMP2 ‘BRANCH ON SRC HI 
BR DCMP4 SBRANCH ON SRC LOW 
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UDA 
MIS 


$D1 SUBROUTI 

.SBTTL SDI SUBROUTINES 

4 : GET STATUS 

g ; OUTPUT PARAMETERS 

8 : CLEARS DRIVE STATUS AND GETS CHARACTERISTICS 

2 : IF NOT ALREADY RECEIVED 
11 ; 

i 002377 GSTATS: PUSH 3 :PUSH R3 

13 002400 PUSH  R5 [PUSH R5 

14 002401 104203 001414 STATST: MOV #CR. Sst. R3 [POINT TO GET STATUS TABLE 

15 002403 CALL ‘TAL GET STA U 

16 002405 104207 503 V pst. Kno “POINT TO SUBUNIT CHARACTERISTICS 
17 002407 104673 000002 MOV ST.ERB(RO) ,R3 GET NERROR BYTE 

18 002411 103203 177420 BIC #ST.DF ¢HIBYTE,R3 [CLEAR HIGH BYTE AND DF BIT 

19 002413 115003 TST RS SANY NEED TO ISSUE DRIVE CLEAR ? 
20 002414 BEQ ‘NOPE = SKIP IT 

21 002416 104030 001502 MOV aS. TCL SSTORE MASK IN DRIVE CLR COMMAND 
22 002420 CALL EAR [DO A DRIVE CLEAR 

23 002422 104205 001504 STSK1: MOV gStel. RS [POINT TO FIRST WORD OF STATUS 
24 002424 104253 MOV (R5)+,R3 “GET FIRST WORD OF “sth TUS 

25 002425 104202 000001 MOV #1,R2 TERROR SUBCODE IN CASE 

26 002427 102203 000040 BIT #ST.DR,R3 [1S DRIVE IN 5 IAGNOSTIC REQUEST MODE 
27 002431 BNE STPNIC YES, WE 

8 002433 115402 INC TERROR SUBCODE 2 

29 002434 102203 000001 BIT #ST.RU,R3 t1$ RUN SrOP SWITCH OUT 

30 002436 BEQ STPNIC TYES, LOSE AGAIN 

31 002440 104202 000004 MOV ~R2 + SUBCODE 

32 002442 102203 000002 BIT #ST.PS,R3 *PORT SWITCH OUT ? 

33 002444 BEQ STPNIC [YES = DIE PAINFULLY 

34 002446 104032 MCV 3,R2 :GET STATUS MODE BYTE 

35 002447 110702 SWAB ss R2 ‘SWITCH WRITE PROTECT TO LOW BYTE 
36 002450 102302 001473 BIT GSR+1,R2 [THIS SUBUNIT WRITE PROTECTED ? 
37 002452 BEQ SRCK SIF NOT CHECK IF SPINNING 

38 002454 104202 000003 MOV 3,R2 SIN CASE IT'S FATA 

39 002456 102200 000001 001703 BIT #uP, FLAG [BEEN HERE ONCE ? 
40 002461 BNE PNIC [YUP = GIVE UP 
41 002463 101200 000001 001703 BIS #wP,FLAG1 [SET BEEN HERE FLAG 
42 002466 CALL CCESS [TRY TO RESET IT 
43 002470 BR STATST SAND SEE IF IT WORKED 
44 002472 102203 000020 SPCK: BIT #ST.SR,R3 *1$ PACK SPINNING? 
45 002474 BNE STFORM ‘YES, TEST FOR FORMAT ENABLE 
46 002476 CALL LOAD :NO, SPIN PACK 
47 002500 JMP STATST *SEE IF ANYTHING CHANGED 
48 002502 102203 002000 STFORM: BIT #ST.FO,R3 t1$ FORMATTING ENABLED? 
49 002504 BN TDIAG [YES, TEST FOR DIAG ACCE 

002506 CALL ACCESS [NO, SET UP DIAG/FORM ACCESS 

51002510 JMP ss STATST :SEE IF ANYTHING CHA 

52 002512 102203 001000 STDIAG: BIT #ST.DB,R3 [1S DIAG CYL ACCESS ALLOWED 

53 002514 BNE STWLK ive , CHECK FOR ERR 
54 002516 CALL ACCESS “set UP DIAG/FORM ACCESS 

55 002520 JMP STATST Mee I F ANYTHING CHANGED 

56 002522 104153 STWLK: MOV (R5) R3 GET LF COND STATUS WORD é 
57 002523 102203 000010 BIT #ST.WE,R3 TANY WRITE ENABLE ERRORS 7 
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SDI SUBROUTINES 


5 


102200 
104203 
104203 
101200 


104201 


010000 
001420 
001424 
010000 


000001 


001702 


001702 


CHAR: 


STSKP 


BEQ 
CALL 
BR 
BIT 
BNE 
MOV 
CALL 
MOV 
CALL 
BIS 
POP 
P 


oP 
RETURN 


STPNIC: MOV 


CALL 


CHAR 

ACCESS 
STATST 

+44 Sal alte 
#CR.GCR,R3 
#CR.GSR,R3 
#CHRONE , FLAG 
R5 

R3 


#1,R1 
ERRMNT 


ZNO. GET CHARACTERISTICS 
: HN rae LOGICAL WRITE 


AND CHECK WORLD AGAIN 

i CHARCTERISTICS ALREADY — 
3YUP = NEED TO GET AGAIN 

POINT TO GET CHAR CMD TABLE 
3GET CHARACTERISTICS 
GET a> > tua CHARACTERISTICS 
:GET THEM 
7SET CHAR DONE BIT 
RESTORE RS 
sRESTORE : 
sRETURN TO CALLE 


R 
INDICATE STATUS FAILURE 
;SEND ERROR MSG AND QUIT 


? 





ort” 


3 ] 
SEQ 28 | 
UDAF52 = UDA=-52 FORMATTER DMACR X04.01 23-AUG=82 13:14:22 PAGE 13 | 
SDI SUBROUTINES 
| 
1 g 
: ; TALK ROUTINE | 
4 : INPUT PARAMETERS 
6 : R2 CONTAINS PORT NUMBER CODE | 
8 ; R3 CONTAINS A POINTER TO A COMMAND/RESPONSE ADDRESS/SIZE TABLE 
10 : OUTPUT PARAMETERS 
12 : 
13 002563 TALK: PUSH R3 
14 002564 PUSH RG 
15 002565 104663 000001 LOOP1: MOV 1(SP),R3 :RESTORE R3 FOR pRETRIES 
16 002567 104237 MOV (R3)+.RO ‘GET COMMAND ADDRESS 
17 002570 104231 MOV (R3)+-R1 :GET COMMAND SIZE 
18 002571 104302 001412 MOV UNIT, R2 TMAKE SURE HAVE INTERCONNECT 
19 002573 060004 XFC SEND :SEND GET STATUS COMMAND 
20 002574 115001 TST R1 s SUCESSFUL? 
21 002575 BEQ MSG1 [YES, BRANCH 
22 002577 115400 001370 INC UN. ERT S INCREMENT ERROR COUNT 
23 002601 104201 000002 MOV #2,R1 TERROR NUMBER IN CASE 
24 002603 BR TCLEAR 7D0 RECOV VERY 
25 002605 102200 100000 001702 MSGi: BIT #RTY, FLAG ZINA RETRY ? 
26 002610 BNE LOOP? YES - DON'T CLEAR COUNTER 
7 002612 114000 001370 CLR UN.ERT :FOR R 
8 002614 104231 LOOP2: MOV (R3)+,R1 *POINT TO "aev BUFFER 
29 002615 104137 MOV (R3) ,RO 'SET SIZE OF REPLY 
30 002616 104302 001412 MOV UNIT.R2 [MAKE SURE H AVE INTERCONNECT 
31 002620 060005 XFC RCV SRCV REPLY TO GET STATUS 
32 002621 115001 TST R1 s SUCESSFUL? 
33 002622 BEQ TALKDN SYES, CHECK STA 
00 115400 001367 INC UN.ERR S INCREMENT ERROR COUNT 
35 002626 104201 #4,R1 OR CODE | 
36 0026. BR TCLEAR :D0 RECOVERY 
37 002632 106207 000175 TALKDN: CMP #UNSEC,RO :WAS CMD UNSUCESSFUL? 
38 002634 BNE TALKRT DONE 
39 002636 115400 001367 INC UN.ERR TINCREMENT ERROR COUNT 
40 002640 104201 000003 MOV #3,R1 TERROR CODE IN CASE 
41 002642 BR TCLEAR :NO, TRY AGAIN 
42 002644 102200 100000 001702 TALKRT: BIT #RTY, FLAG 3IN-A RETRY ? 
43 002647 BNE TALKP :YUP = SKIP CLEAR 
44 002651 114000 001367 CLR UN.ERR [CLEAR FOR REST 
45 002653 TALKP: POP R4 SRESTORE R4 
46 002654 POP R3 SRESTORE R3 
47 002655 RE TURN 
48 002657 114002 ERRT: CLR R2 :CLEAR SUBCODE 
49 002660 CALL § ERRMNT TERROR EXIT | 
30 posees oeneion ee a BNE Takipe’ INA REKIP FLAG SET AND STACK SAVE 
52 002667 101200 100000 001702 BIS #RTY, FLAG [SET FLAG 
53 002672 104060 001701 MOV SP, STcksv SSAVE STACK POINTER 
36 poser. 104 1701 TALKIP Bay taiel RESTORE STACK POINEER 
5 0097 196308 teat es 001370 TALIP1: CMP RETRY,UN.ERT [DONE RETRIES ? 
57 00270 BMI ERRT :YUP = CAN 
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dD 3 


UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 13-1 
SDI SUBROUTINES 


58 002705 106300 002165 001367 CMP RETRY,UN.ERR sOVER THE LIMIT ? 

59 002710 BMI ERRT : 

60 002712 104302 001412 MOV UNIT, R2 GET UNIT 

61 002714 060011 XFC DINIT ZINIT THE DRIVE 

62 002715 CALL  STATVL TST DnVER STATUS VALIDITY 
63 002717 BNE TERR aH TZ G00D 

64 002721 CALL ‘TIMER ‘WAIT ANOTHER 2 SECONDS 
65 002723 CALL ‘TIMER :TO MAKE SURE DRIVER HAS ENOUGH TIME 
66 002725 CALL = STATVL iGET VALID STATUS AGAIN 

67 002727 BNE TERR SIF NO GOOD = ER 

68 002731 102201 000001 BIT #RCVRDY,R1 SIS RECEIVER READY SET 

69 002733 BNE TATTNI sYES = ALL SET 

70 002735 104201 000024 TERR: MOV #20. .R1 SSET ERROR CODE 

71 002737 114002 CLR R SCLEAR SUBCODE 

72 002740 CALL = ERRMNT [DIE PEACEFULLY 

73 002742 TATTN1: CALL —- GSTATS [GET STATUS AND CLEAR ERRORS 
74 002744 103200 100000 001702 BIC ARTY, FLAG ZCLEAR RETRY FLAG 
75 002747 BR LooPi zAND TRY AGAIN 

A ; RECAL ROUTINE 

79 002751 RECAL: PUSH R3 ZSAVE R3 

80 002752 104203 001454 MOV #CR.RCL,R3 ‘POINT TO RECAL TABLE 

81 002754 JMP LOADS :SEND CMD VIA LOAD ROUTINE 
85 ; LOAD ROUTINE 

85 002756 LOAD: PUSH  R3 i SAVE R3 

86 002757 114000 001371 CLR UN.ERI “FOR INIT 

87 002761 104203 001434 MOV #CR.RUN,R3 :POINT TO LOAD DRIVE TABLE 
88 002763 LOADS: PUSH 4 TSAVE R4 

89 002764 104137 (R3) ,RO 3GET COMMAND ADDRESS 

90 002765 104631 000001 MOV 1(R35,R1 :GET COMMAND SIZE 

91 002767 104302 001412 MOV UNIT, R2 GET INTERCONNECT 

92 002771 060004 XFC SEND. ISSUE GET STATUS COMMAND 
93 002772 115001 TST RI 3SU UCCESSF 

94 002773 BEQ LOAD2 3YUP = SKIP RETRY 

95 002775 115400 001371 INC UN.ERI NC 

96 002777 106300 002165 001371 CMP RETRY,UN.ERI SDONE ALL RETIES ? 

97 003002 BMI LOADER 7 YUP 

98 003004 BR LOAD 

99 003006 114000 001371 LOAD2: CLR UN.ERI 3FOR ERROR CLEAR 

100 003010 104304 001735 MOV LTO,R4 [LONG TIMEOUT VALUE (SECONDS) 
101 003012 104631 00000 LOAD3: MOV (RS) ,R1 [GET RECEIVE BUFFRE 

108 003014 104637 00000 MOV (R3)-RO [GET BUFFER LENGTH 

103 003016 104302 001412 MOV UNIT ,R2 [GET INTERCONNECT 

104 003020 060005 XFC RCV SRECEIVE SDI RESPONSE 

105 003021 115001 TST R1 i SUCCESSFUL 

106 003022 BEQ LOAD4 = SkIP RETR 

107 003024 117404 DEC R4 :DECRERENT COUNTER 

108 003025 BNE LOAD3 ; LL DONE 

109 003027 BR LOADER :1F Not DONE YET = THEN ERROR 
110 003031 LOAD4: POP R4 SRESTORE R4 

111 003032 POP R3 SRESTORE R3 

11 00303 RE TURN [RETURN TO CALLER 

113 003035 104201 000003 LOADER: MOV #3,R1 ; CODE 

114 003037 114002 CLR R2 [CLEAR SUBCODE 
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104203 


104203 


104302 
104203 
104303 


102201 
102201 
117403 


104207 
117407 


104201 


104203 


001440 


001444 


001412 
001450 


001736 


000002 
100000 


000240 


001372 


177775 


001430 


001372 


Fee Ge ee 


CCESS: 


CLEAR: 


SEEK: 
SEEKO: 


SEEK1: 


at FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 13-2 


CALL ERRMNT 
ACCESS ROUTINE 
PUSH 


R3 
MOV = #CR. ACC, R3 
CALL ‘TALK 
POP 


RETURN 
CLEAR ROUTINE 
PUSH R3 
MOV #CR.CLR,RS 
CALL TALK 
POP 
RETURN 
SEEK ROUTINE 
PUSH R3 
PUSH RO 
MOV UNIT ,R2 
MOV #CR.SEK ,R3 
CALL TA 
MOV 
CALL STATVL 
SE 


BN 

BIT #ATTN,R1 

BN SEEK2 

BIT #MRUROY ,R1 
SEEK6 


BNE 
DEC R 
BEQ SEEKS 
MOV #160. ,R0 
DEC RO 
BNE SEEK? 
BR SEEK1 
CLR R1 
CLR UN. SEK 
POP RO 

R3 
RETURN 
CALL INITPT 
INC - SEK 
CMP RETRY ,UN.SEK 
BEQ SEEK3 
CALL GSTATS 
CALL REC 
BR SEEK 
MOV #-3,R 

SEEK4 
UNLOAD ROUTINE 


PUSH R3 
MOV #CR.DIS,R3 





sDIE 


SAVE R3 
sPOINT TO ACCESS TABLE 


SEND ACCESS CMD 
sRESTORE R 
RETURN TO CALLER 


sSAVE R3 

sPOINT TO CLEAR TABLE 
3SEND CLEAR CMD 
sRESTORE R3 

sRETURN TO CALLER 


SAVE R3 


sSAVE RO 

sMAKE SURE HAVE UNIT 
POINT TO SEEK TABLE 
oer tin COMMAND 


: IMEOUT 
CHECK FOR STATUS VALIDITY 


z1F NOT ZERO = DIE 
sANY PROBLEMS 
7YES, BRANCH 

3NO, DONE? 
sALL_DONE 
sDECREMENT COUNTER 
sIF ZERO THEN DEAD 
31MS_ DELAY 
sDECREMENT COUNTER 
DELAY LOOP 

zTRY AGAIN 

CLEAR ERROR FLAG 
ves RESTORE RO 
RETURN TO CALLER 
z INIT THE 


DRIVE 
S INCREMENT RETRY COUNTER 
SHAVE WE DONE ALL RETRIES? 
[PANIC AND CALL GET STATUS 


[YES, PANIC 


sRECAL DRIVE 
zAND TRY AGAIN 
SET _ER 


3 ROR CODE 
sRESTORE REGS AND RETURN 


SAVE R3 
sDISCONNECT WITH 











SEQ 30 


oc 










F 
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SDI SUBROUTINES 


003157 CALL TALK 
61 POP R3 


v 0031 

In 003162 RETURN 

138 : ONLINE ROUTINE 

178 003164 ONLIN: PUSH R3 

179 003165 104203 001464 MOV #CR.ONL,R3 

180 003167 CALL TALK 

181 003171 PoP 

Ise 003172 RETURN 

+ 3 INITIALIZE ROUTINE 

186 003174 INITIT: PUSH R1 

187 003175 PUSH R3,R4 

188 003177 104204 000001 MOV #1,R4 

189 003201 104203 000004 MOV #4 ,R3 

190 003203 104042 INITS: MOV R4,R2 

191 003204 060011 FC DINIT 

192 003205 104207 066540 MOV #28000. ,RO 
193 003207 ATTN1: CALL STATVL 

194 003211 E 

195 003213 117407 DEC 

196 003214 BEQ AOUT 

197 003216 102201 000001 BIT #RCVRDY,R1 
198 00338 BEQ ATTN1 

199 00 110204 AOUT: ROL 

200 003223 117403 DEC R3 

201 003224 BNE INITS 

202 003226 PoP R4,R3 

203 003230 POP R1 

204 003231 RETURN 

205 

206 ; 

sdf 3 INIT GIVEN PORT 

209 003233 104302 001412 INITPT: MOV UNIT,R2 

210 003235 060011 FC DINI 

211 003236 104207 066540 MOV #28000. ,RO 

212 003240 INITP1: CALL STATVL 

213 003242 BNE INITDD 

214 003244 117407 DEC RO 

215 003245 BEQ INITOD 

36 003247 102201 000001 BIT #RCVRDY,R1 
17 003251 BEQ INITP1 

218 003253 RETURN 

219 003255 104201 000024 INITDD: MOV #20.,R1 

220 003257 114002 CLR 

221 003260 CALL ERRMNT 


4 


sae ron ew yg CMD 
RETURN 10 CALLER 


sSAVE R3 

sONLINE COMMAND 
sBRING DRIVE ONLINE 
sREST 

sRETURN TO CALLER 


zSAVE R1 
sSAVE_R3 AND R4 
START WITH PORT 0 


ZINIT DRIV 

TIMER (APPROX 2 SECS) 
3 CHECK STATUS VALIDITY 
: F NOT ZERO = NO GOOD 


1F ZERO THEN DEAD 
IS RECECIVER READY SET ? 
: eo RY A oe 


:DECRERENT COUNTER 
F NOT 


R 
sAND RETURN TO CALLER 
T_PORT NUMBER 


;DEAD 

sDECREMETN COUTNER 
sDEAD , tS COUNT EXPIRED 
sNOPE = KEEP TRYING 


sEX 

RROR_ CODE 
NO SUBCODE 
ERROR EXIT 


oc 






UDAF 5 
OVERLAY PROCESSING ROUTINES 
1 


3262 343 002013 
3 105014 

$509 104203 004014 
001367 


son 106300 002165 
306 115400 001367 


sssssssssssss 
s 


WWW 


01200 000020 


POPINININININPINYN 2 ot tt oe es es 
S CONAUESWN =O DOONAUSWN “ODO ONOAULSWI 


000005 


NM 
Oo 
S 
Ww 
WwW 
N= 
ow 
_ 
R 
™ 
So 
= 


001367 


001703 
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NEXT: 


NEXTS: 


OERR: 






~SBTTL OVERLAY PROCESSING ROUTINES 


OVERLAY PROCESSING ROUTINES 
R1 = OFFSET INTO TABLE 


NEXT CALLS OVERLAY FOR NEXT CODE OVERLAY 
MOV #OVLTBL ,R4 GET POINTER TO OVERLAY TABLE 
R1,R4 X INTO T. 


ADD ; INDEX 

MOV #START,R3 SUDA ADDRESS TO LOAD A 

CALL OVRLAY [CALL ROUTINE TO DO OVERLAY 
TST RO CME KSUM 0.K. 2? 

BNE OERR YES = RETRY" iF POSSIBLE 
CLR UN. ERR [CLEAR ERROR COUNT 

POP R1 [POP CURRENT RETURN ADDRESS 
BR START 760 TO OVER 

CMP RETRY,UN.ERR [DONE ALL RETRIES ? 

BEQ OERR2 7Y 

INC UN.ERR SINC ERROR AND 

BR NEXTS STRY AGAIN 

DEAD HOST EXIT FOR ALL ROUTINES 

MOV :GET ERROR CODE FROM XFC 


R1,R2 
BIS #DEAD,FLAG1 S INDICATE HOST GONE 
UNIBUS ERROR EXIT FOR ALL ROUTINES 


MOV #5,R1 SET UNIBUS 1/0 ERROR 
CALL ERRMNT ERROR RETURN 





oc 


1 


4 

5 

6 

7 

8 

9 
11 003324 
12 003325 
13 003327 
14 003330 
15 003332 
16 003334 
17 003335 
18 003337 
19 003341 
20 003343 
21 003345 
22 003347 
23 003350 
24 003352 
25 003355 
26 

27 

$8 OOstee 
9 003356 
31 003362 
32 $3363 
33 003365 
34 003367 
35 003370 
36 003372 
37 003374 
38 003376 
39 003400 
40 003403 
41 003405 
42 003407 





002013 
004014 


001367 
003355 


004014 


001636 
002013 
004014 


002165 
001367 


001367 


PALP1: 


PALP2: 


PAGER: 


PALP4: 


PALP3: 
PAERR: 
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OVERLAY PROCESSING ROUTINES 


PAGE BRINGS IN AN OVERLAY AND CALLS IT 
UPON RETURN OF THE OVERLAY PAGE BRINGS IN 
THE PREVIOUS OVERLAY AND BEGINS EXECUTION 
AT THE POINT THE CALL TO PAGE WAS MADE 


R1 = OVERLAY TO BE BROUGHT IN 


PUSH = RB ;PUSH FOR LATER RETURN 

MOV #OVLTBL.R4 [POINT TO OVERLAY TABLE 

ADD R1,R4 :POINT TO ENTRY FOR NEW OVERLAY 
MOV #START,R3 [POINT TO UDA LOAD ADDRESS 

CALL OVRLAY ‘BRING IN NEW OVERLAY 

TST RO EDC 0.K. ? 

BEQ PALP2 

CALL PAERR :CALL ERROR HANDLER 

BR PALPI Y AGAIN 

CLR UN. ERR ICLEAR 


ERROR COUNT 
ADDRESS FOR OVERLAY TO RETURN TO 
PUSH ON STACK 
3 STARTING face fon are OVERLAY 


MOV #PAGER, os 
MOV R3,-(SP) 
MOV #START,R3 


V R3,-(SP) 3PUSH ON STAC 
RE TURN :'CALL"’ OVERLAY 
[NEXT ADDRESS ON STACK IS RETURN 
TADDRESS TO PAGE 
POP R1 POP Lb OVERLAY NUMBER 
MOV R1, CUROVL [MAKE IT CURRENT 
MOV #OVLTBL RG :POINT TO OVERLAY TABLE 
ADD R1 [POINT TO OLD OVERLAY BLOCK 
MOV #START, R3 :POINT TO UDA LOAD ADDRESS 
CALL  OVRL TBRING IT IN 
TST RO ZEDC O.K. ? 
BEQ PALP3 : YUP 
CALL PAERR SERROR HANDLER 
BR PALP4 :TRY AGAIN 
RETURN SRETURN TO ADDRESS ,PAGE CALLED FROM 
CMP RETRY,UN.ERR ; DONE ALL RETRIES ? 
BEQ OERR2 :YUP = EXIT ME DEAD HOST UNIBUS ERR 
c UN. ERR 3 INC ERROR COUNT 
RETURN [RETURN AND TRY AGAIN 
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OVERLAY PROCESSING ROUTINES 


S8sssss 
FELESES 


MRI ew 
Ww OnvyuIWw— 


Ssssss 


BONAMUEWN $6 OONAUSWN OC OONOULSWN— 
REREEE 


BOSSI ORNS wowsouvne 
eo Se Be Be Be 


WN—o 





OVERLAY ROUTINE 
| ey UNIBUS READ TO GET OVERLAY 
R3 => UDA ADDRESS TO LOAD 


MOV HSTLO(R4),RO ;LOW ORDER UNIBUS ADDRESS 
MOV HSTHI(R4).R1 SHI ORDER UNIBUS ADDRESS 

MOV LEN(R4) RO :WORD COUNT TO OVERLAY 

KFC UREAD TISSUE UNIBUS READ 

TST R1 SANY UNIBUS PROBLEMS ? 

BNE UERR [YUP = EXIT WITH UNIBUS ERROR 
RETURN SRETURN TO CALLING ROUTINE 
SEND MAINTENANCE READ COMMAND 

MOV #DMBUF ,RO :POINT TO BUFFER 

MOV #OMBUFL,R1 [LENGTH 

XFC MAINTR ISSUE COMMAND 

TST R1 [ANY UNIBUS PROBLEMS ? 

OME UERR [YUP -- EXIT WITH UNIBUS ERROR 


RECEIVE MAINTENANCE WRITE DATA 


MOV #OMBUF ,RO POINT TO BUFFER 

MOV #OMBUFL RI SIZE OF BUFFER 

XFC MAINTW RECEIVE MAINT WRITE DATA 
TST R1 sANY UNIBUS PROBLEMS ? 

BNE UERR YUP = EXIT WITH UNIBUS ERROR 


oc 


S8888sssssssss 
FEFERESES EE 
GRVSARNSSRALSL= 


WANA 
viuvivwl 


000010 
000010 
001750 


000001 
000063 


000020 


002170 
001460 


001703 
001703 


001703 


001556 


Fite Ge te Ge Ge Ge 


ALLOVR: 


ALLOV1: 


ERRHND: 


ERRMNT: 


~SBTTL MISCELLANEOUS COMMON ROUTINES 


ERROR RETURN TO HOST 


BIT #ERON, FLAG 
BNE LLOV 

BIS #ERON, FLAG? 
MOV #OMBUF ,RO 
MOV R17, (RO) 

MOV R2.1(RO) 
MOV #G6,R1 

CALL _—~PAGE 

CALL —— DISCON 

CLR R 

BIT #DEAD, FLAG1 
BEQ ALLOVi 

INC R 

XFC DONE 


ERROR RETRY SEQUENCER 
MOV RECTMP ,ERECOV+1 
Vv #CR.ERV,RS 


MO ° 
CALL 
RETURN 


s TRIED TO QUIT YET ? 
zYUP - eo FAILED 


3SET 


S POINT TO MAINT BUFFER 
T NUMBER IN 
ROR SUBCODE 
Happ aoe OVERLAY 


RING IT I 
DISCONNECT /SPINDOWN DRIVE 


;PUT ERROR 
PUT IN ER 


7 IN CAS 


JUST 
MAKE NON 


| J 3 
pty = UDA=52 FORMATTER tie X04.01 23-AUG-82 13:14:22 PAGE 17 


ISCELLANEOUS COMMON ROUTI 


ZERO 


EXIT DM MODE 


0.K 
DIE OR JUST QUIT ? 
— 


MSG 


sSTORE LEVEL IN COMMAND 
;POIT TO COMMAND 


D0 ERROR RECOVERY 
;RETURN 





SEQ 35 


sc 


1 


4 
5 
6 
7 003515 
8 003520 
9 003522 
10 003503 
11 003507 
12 003531 
13 003532 
14 003534 
15 003535 
16 003536 
17 003540 
18 003543 
19 
20 
21 
22 
23 
24 
25 003545 
26 003546 
27 003550 
28 003551 
29 003552 
30 003553 
31 003554 
32 003555 
33 003557 
34 003560 
35 
36 
37 
38 
39 
40 
41 003562 
42 00356 
43 003565 
003566 
45 003567 
46 003571 
47 003573 
48 003575 
49 003577 
50 003601 
51 00360 
52 00560 
53 003605 
54 003606 
$5 003610 


ed ae a se 


102201 
102201 


106011 


106201 


001733 


000000 


100000 


077777 


000004 
000400 


177777 
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: COMPUTE uf C 
: R2 => BUFFER 
; RO = BUFFER SIZE IN WORDS 
CEDC: PUSH  R2,R4,R5 
MOV INI,R 
EAGAIN: MOV (R25+,R4G 
XOR R4,R3 
ADD #0,R3 
ROL R3 
BCC NOCRY 
INC R3 
NOCRY: DEC RO 
BNE EAGAIN 
POP R5,R4,R2 
RETURN 
3 ONE SECOND DELAY ROUTINE 
TIMER: PUSH R3 
MOV ATIMVAL,R3 
TIMLP: MOV R1,R1 
MOV R1.R1 
MOV R1,R1 
MOV R1,R1 
DEC R3 
BNE TIMLP 
POP 3 
RETURN 
: VALIDATE XFC STATUS RESPONSE 
STATVL: PUSH 5 
MOV #77777,R5 
STATRE: XFC STATUS 
DEC RS 
BEQ STATFR 
BIT #VLD,R1 
BEQ STATER 
BIT #PARIT1,R1 
BNE STATRE 
POP R 
CMP R1,R1 
STATRT: RETURN 
STATFR: POP 





R5 
cMP #177777,R1 
STATRT 


sINITIAL VALUE (69) 
;MOVE oe —— R4 


sDECREMENT COUNTER 
:1F NOT 0 DO NEXT WORD 


3R3 = EDC 


sSAVE R3 
sLOOP COUNTER (32768) 
; DELAY 


[DELAY 
:DELAY 


DELAY 
;DECRMENT COUNTER 
:LOOP TILL _DONE 


sRESTORE R3 
sRETUR TO CALLER 


7SAVE RS 

sCOUNTER (1 SECOND) 

3GET DRIVE STATUS 

5 ae ee COUNTER 
GOOD 


:LOw VALID BIT coop 2 
NO DRI IVE ag hork = STATUS BAD 


ORE RS 
SET —_ CODE EQ ZERO 


TRESTORE R RS 
MAKE SURE NOT EQUAL 
;RETURN 


SEQ 36 


oc 


4 

5 003612 
§ 003614 
8 003620 
9 003601 
10 003623 
11 003625 
\¢ 003626 
13 003631 
14 003634 
15 003637 
16 003642 
17 003645 
18 003647 
19 003651 
20 003653 
21 003655 
22 003660 
23 tre 
24 00366 
25 003665 
26 003667 
7 003671 
8 003673 
29 003675 


002110 
000001 
000003 


p08 
00152 


000011 
000006 
000007 
000010 
020000 
000004 
001612 


100000 


000012 
002110 
000006 


001552 


VTSK: 


1$: 


CVTERR: 
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1 


CONVERT BLOCK NUMBER TO PHYSICAL ADDRESS AND SEEK 
R4 => BLOCK NUMBER 


#CONBLK,RO 
7(R4) RI 


Ri ,V2e1(RO) 


(R4)_R 
R3,V2(RO) 
#SCR,RI 


1 
V3(RO) ,R1 
SF atta 


#SS, 1SEEK+2 
SEEK 


R1 
CVTERR 


ERRMNT 


sPOINT AT CONVERT BLOCK 
GET HIGH ORDER 


: IT 
{GET LOW ORDER 

:POINT TO SUBUNIT CHARACTERISTICS 
SCONVERT IT 

:GET TRACK NUMBER 


LOW ORDER XYLINDER 
HIGH ORDER CYLINDR 
;GR NUMBER 


3GET VARIABLE 3 

zIF EQ TO SECT12 THEN D/XBN 
sAND SEEK BIT O.K. 2 

3 te - SET 576 BIT 


TANY ERROR ? 
[YUP ERROR 


3SEEK_ERROR 
CONVERT BLOCK 
sCYLINDER FAILED ON 
sERROR RETURN 


SEQ 37 


i 
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1 


Wo or es 
CONAUSWI 


NM—SODONOULSWN OO 


NO 









COMPUTE PRIMARY RBN FOR GIVEN LBN 
RO => CHARACTERISTICS BLOCK 


R4 =>  LBN 
RBN = (QUO(CURBN-STLBN) /LBNTRK) *RBNTRK 


: PUSH R2 
MOV (RG), TEMP :GET LOW ORDER LBN 
MOV 1(R45,R2 :GET HIGH ORDER 
MOV ATEMP,RG :FOR SUBTRACT 
SUB ST.LBN,R2 [D0 SUBTRACT 
MOV R2,1(R4) :STORE BACK 
BIT #MODE ,FLAG1 ‘WHAT MODE ARE WE IN ? 
BEQ ‘IF CLEAR THEN IN 512 MODE 
MOV LBNT76(RO) ,R3 [GET LBN/TRACK (576) 
BR $ ‘SKIP 512 STUFF 
MOV LBNT12(RO) ,R3 'GET LBN/TRACK (512) 
BIC #HIBYTE,R3- [CLEAR HIGH RYTE 
MOV R3,DDUMMY *STORE FOR COMPUTATION 
CLR DDUMMY +1 SCLEAR FOR STORE 
MOV #DDUMMY ,R3 [FOR CIVIDE 
MOV RBNTRK(RO) ,R3 [GET RBN/TRACK 
BIC #HIIBYTE RS i CLEAR GARBAGE 
MOV R3,DDUMMY “FOR COMPUTATION 
CLR DDUMMY+1 *CLEAR HIGH ORDER 
MOV #DDUMMY ,R3 [FOR MULTIPLY 
CALL  DMUL 
MOV (R4) ,REVRBN :GET LOW ORDER 
MOV 1CR4S ,REVRENG1 ‘STORE HIGH ORDER 


RETURN 





sc 


i 
8 eeeeeeeeeeeeeOOOeeEEeeoEEOEOEOEOEOoEOEeEeEeEeEeeee 


ey 


SEQ 39 | 
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1 


$ ; COMPUTE ECC SYMBOLS IN ERROR 

5 " 

$ 00376 1Osege 001512 Eccck: MOV #CR,R2 As TO CHARACTERISTICS 
003765 10462 890006 MOV ERRSYM(R2) ,R3 7GET THRESHOLD 

8 003767 103203 00037 BIC #LOBYTE ,R3 CLEAR LOW GARBAGE 

9 003771 110703 SWAB 3GET LOW 

10 003772 115003 TST R3 ie THRE SHOLD 0? 

11 003773 BEQ 105$ 7YUP = NO POINT IN CORRECTING 

\¢ 003775 104207 001373 MOV #RDBLK ,RO ‘POINT TO COMMAND BLOCK 

13 003777 104302 002171 MOV SECSIZ,R2 + SECTOR SIZE IN WORDS 

14 004001 060015 XFC ECC PERFORM ECC CORRECTION 

15 004002 115001 TST R1 ;SUCCESSFUL. ? 

16 004003 BNE 105$ 

17 004005 106073 CMP RO,R3 ;WITHIN BOUNDS ? 

18 004006 BMI GDECC YES CONSIDEP GOOD 

sor dt 104201 177777 105$: MOV #-1,R1 ELSE aaa L BAD 


| 
GDECC: RETURN ZRETU 
| 
| 


een 





4 

5 004014 
6 

4 

8 

9 

10 

11 

\¢ 004016 
1 seg 
14 00401 
15 004020 
16 004021 
17 

18 

19 004036 
20 004037 
21 004040 
22 004041 
23 

as 
25 sree) 
26 00406 
44 004064 
8 004065 
29 

30 

31 seth 4 
32 00410 
33 004104 
34 004105 
35 

36 

37 ohh 
38 00413 
39 004134 
40 004135 
4) 
<5 
4 sath 
44 00415 
45 004154 
46 004155 
& 
48 
49 004211 
50 004 \¢ 
51 60421 
26 004214 
e 

5 004235 
56 

57 


156 


156 


157 


163 


163 


157 


156 


164 


164 


162 


145 


145 


156 


164 


“an 


Bete Sete te CHE 
: 
pant 


MSGTBL: 


10$: 
MSGILN 
208: 
MSG2LN 
30$: 
MSG3LN 
50$: 
MSGSLN 
708: 
MSG7LN 
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~SBTTL DUP DM<=>HOST STARTUP OVERLAY 


DUP DM<=>HOST STARTUP OVERLAY 


JMP 


DATA STRUCTURES 


- ENABL 


«WORD 
FORMAT 


STARTS 


71 


UNITCN 
MSG2LN 
0001 


SECCN 
MSG3LN 


EXTFCT 
OSG aLM 


DLLFLE 
MSG7LN 


CONBAD 
MSG6LN 


nscatn 


0 
toner date <MM-DD-YYYY>— 


‘Enter unit number to fornct <0>: 
-20$ MESSAGE ‘LENGTH 


SECTOR SIZE HANDLER 
MESSAGE LENGTH 


0010 
Format in 576 mode <N>?° 
-30$ 


"Use Down-Line load <N>: 
-708 


3SKIP LOCAL DATA STORAGE 


sDATE gg ey ROUTINE 


:MESSAGE 
D 


sMESSAGE LENGTH 
sUNIT a tke tae 


sMESSAGE L 
WOR D 


sMESSAGE LENGTH 


sEXISTING FCT ? 
MESSAGE LENGTH 


WORD 
Vos cutee ing bad block information <Y>: ° 


3 DOWN=L INE i FILE 
MESSAGE LENG 


CONTINUE IF BAD ? 
sMESSAGE LENGTH 


Continue if bad block information is inaccesable <N>: 


;SERIAL NUMBER HANDLER 
MESSAGE LENGTH 
sDUP WORD | 


Enter a non-zero serial number: 


STARTED INFO MESSAGE 





sEND FLAG 


Ca Cc” 
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58 : 

59 004236 030000 FMTSTA: .WORD 30000 :DUP WORD 

60 0042 106 157 162 eASCIZ ‘Format begun’ MESSAGE 

61 000010 FMSTL = .*FMTSTA ‘LENGTH 

6 ; INPUT ERROR MESSAGE 

65 004246 030100 INPERR: .WORD 30100 :DUP WORD 

66 004247 111 156 160 SASC12Z “Input Error’ MESSAGE 

67 000007 INPEL = ~INPERR ‘LENGTH 

68 .DSABL 

a é MISCELLANEOUS DUP STORAGE 

72 004255 000000 DATBUF: .WORD 0 sCONVERT BUFFER FOR DATE 
73 004256 000000 <WORD 0 ;MAKE SURE ALL 2 WORDS 

74 004257 000000 ;WORD 0 

75 004260 000000 MLEN: .WORD 0 ‘LENGTH STORA GE 

76 000002 MENTLN = 2 SCONSTANT EN;RY LENGTH 

77 000001 MSGOFF = 1 ZOF FSET OF MESSAGE LENGTH 
78 004261 000051 TBUFF: REPT 41. sZERO 41 WORDS 

79 RD 0 + TERMINAL BUFFER 

80 ENDM 

81 000051 TBUFFL = .-~ TBUFF 

82 000131 Y : 131 sASCII +Y" 

83 000055 DASH = 055 ASCII 

84 000057 SLAS = 057 tASCII '7° 

86 036031 DAYS = 14.431. +365. +<365, #441#10.>+365. 

87 7DAYS FROM NOV. 17,1858 TO 
a8 7JAN. 1,1901 

90 ; DATE CONVERSION TABLES 

92 004332 «WORD 0 i TERMINATOR 

93 004333 000012 <WORD 10. :100'S NANOSECONDS PER MICROSECOND 
94 004334 023420 “WORD 10000. ;MICROSECONDS PER HUNDREDTH SECOND 
95 004335 000144 “WORD 100. HUNDREDTHS OF SECOND PER SECOND 
96 004336 000074 ;WORD 60. SECONDS PER MINUTE 

97 004337 000074 ;WORD 60. ‘MINUTES P 

98 004340 000030 “WORD 24. SHOURS PER DAY 

100 ; 

101 ; QUARTER DAYS PER MONTH TABLE 
103 004341 WORD s TERMINATOR FOR MONTH TABLE 
104 004 34¢ 900174 TIMTBL: .WORD 31.24 SQUARTER DAYS IN 

105 00434 161 “WORD 28.%4+1 SQUARTER DAYS IN FEBRUARY 
106 004344 000174 “WORD 31.%4 SQUARTER DAYS IN MARCH 

107 004345 000170 “WORD 30.%4 [QUARTER DAYS IN APRIL 

108 004546 174 “WORD 31.%4 ZQUARTER DAYS IN MAY 

109 004347 000170 “WORD 30. %4 SQUARTER DAYS IN JUNE 

110 006350 000174 “WORD 31.%4 SQUARTER DAYS IN JULY 

111 004551 000174 “WORD 31. *4 SQUARTER DAYS IN AUGUST 

Ie 004 3 000170 <WORD 30.24 TQUARTER DAYS IN SEPTEMBER 
113 004353 000174 -WORD 31. %4 SQUARTER DAYS IN OCTOBER 
114 004354 000170 <WORD 30.%4 SQUARTER DAYS IN NOVE 








dD 4 
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i? 004355 177777 WORD =1 
117 


sPRETEND INFINITE DAYS IN DECEMBER, 
:SINCE NOTHING COMES AFTER IT 


on 






DUP DM<=>HOST STARTUP OVERLAY 


§ 004356 104206 001700 


8 004360 
9 004362 og 53 004016 
10 004364 10422 
11 004365 103200 001000 
12 004370 104221 
13 004371 104010 004260 
14 004373 104027 
15 004374 
16 004375 gS 
17 004376 104207 004261 
18 004400 104201 00005 
19 004402 060017 
20 00440 
21 004404 104204 004412 
22 004406 
23 004407 
24 004410 
25 004412 102200 000200 
$6 $0461? 102200 001000 
58 Qoca2s 
29 004424 104207 004246 
30 004426 104201 000007 
31 004430 
32 004431 060016 
33 004432 
34 004433 
35 004435 105302 0042 
36 004437 104203 004261 
37 004441 104201 0000 
38 004443 114007 
39 004444 100237 
40 004445 117401 
41 004446 
42 004450 104223 
43 004451 115003 
44 004452 
45 
<2 
48 004454 104207 004236 
49 004456 104201 000010 
0 0044 060016 
51 004461 104201 000060 


001703 


001703 
001703 
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START3: MOV #STACK,SP 
IF DF DEBUG 
CALL 0.0DT 
XFC BREAK 
.ENDC 
CALL SETOVL 
MOV #MSGTBL,R2 
MOV (R2)+,R 
MSGLOP: BIC #REPEAT FLAG1 
MOV (R2)+,Ri 
MOV R1 omen 
MOV R2,RO 
PUSH 
XFC MAINTR 
MOV #TBUFF RO 
MOV #TBUFFL,R1 
KFC MAINTW 
POP R2 
MOV #RETAD,R4 
PUSH RG 
PUSH R3 
RETURN 
RETAD: BIT #QUESDN, FLAG! 
BNE CONON 
BIT #REPEAT, FLAG! 
BEQ MSGLP4 
MOV #INPERR,RO 
HOV #INPEL,R1 
PUSH R 
XFC MAINTR 
POP R2 
BR MSGLP2 
MSGLP4: ADD MLEN,R2 
MSCLP2: MOV #TBUFF RS 
MOV #TBUFFL,R1 
CLR RO 
MSGLP3: MOY RO, (R3)+ 
BNE MSGLP3 
MOV (R2)+,R3 
TST R3 
BNE MSGLOP 
3 CONTINUE ON 
CONON: MOV #FATSTA,RO 
MOV #FMSTL,R1 
KFC INTR 
MOV #G1,R1 
NEXT 













SET UP STACK 


3CALL ODT 
‘BREAKPOINT 


SET UP_OVERLAY POINTERS 
:PO MES TABLE 


TMESSAGE L 

; TO MESSAGE 
sSAVE MESSAGE POINTER 
3S MESSAGE 
ADDRESS OF BUFFER 
:LENGTH OF BUFFER 


;GET ANSWER 
RESTORE MESSAGE POINTER 
RETURN ADD RESS 


AV 
: ADDRESS OF CONVERSION ROUTINE 
3‘"CALL** eet ion ROUT INE 
L DONE QUESTIONS ?? 


3NO REPEAT 
cd ectH ERROR MESSAGE 
; SAVE no POINTER 
RESTORE ety POINTER 
REPEAT QUESTION 
ADD RESSAGE 1 pla 
NT BUFFER 
LENGTH "OF BUFFER 


NUE TILL DONE 

:GET swe ROUTINE ADDRESS 
F 0 THEN ALL FINISHED 

[NOT 0 THEN DO NEXT ENTRY 


sADDRESS OF INFO MESSAGE 
LENGTH OF me SSAGE 


3SE 
NEXT OVERLAY 
ING IT IN 


lo 3) eae 
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1 3 

§ ; SET UP OVERLAY TABLE 

4 004465 104205 000023 SETOVL: MOV #OVCNT,RS :GET COUNT OF OVERLAYS 

5 004467 104204 001362 MOV #DUPOVL ,R4 ‘POINT TO OVERLAY ADDRESS (2 WORDS) 

6 004471 104200 011674 001403 MOV #OVS.G1,DDUMMY SRELATIVE START OF FIRSTOVERLAY 

7 004474 114000 001404 CLR DDUMMY +4 :CLEAR HIGH ORDER 

8 004476 104203 001403 MOV #DDUMMY,R3 R SUB 

9 004500 CALL DSUB GET OFFSET (MUST ADD TO RELATIVE 

10 ‘START ADDRESS oF ogc OVERLAY) 

11 004502 104043 MOV R4,R3 ZCHANGE POINTER DDS 

12 004503 104204 002014 MOV #OVLTBL+HSTLO,R4 SSOINT 10 LOU HOST Abe OF FIRST ENTRY 
13 004505 SLOOP: CALL  DADD SADD OFFSET 
14 004507 105204 000003 ADD #OVLEN,R4 ‘POINT TO Low H HOST ADD. OF NEXT ENTRY 
15 004511 117405 DEC R5 :DECREMENT C 
16 004512 BNE SLOOP TTF NONCTERO. THEW CONTINUE 
17 004514 RETURN TELSE DONE 


on” 





1 


MIR = — 
Cn SIA OS OR IR 


3d33433433944 


2S 
N 


SRR BWWWW POPINNoTyNINgNS 
MOOR) ot ot 


eee ae 
WN OO fN— 


OO... 
AEUNS 


SERRERSERScESEEERESSSSS 


$5 


54 004676 
55 004700 


56 
57 004702 


115005 
104203 


104204 
114005 
117404 


104207 


104306 


001701 
004255 


00003 


004255 


004000 
004255 
000003 


004255 


004675 


001766 


001701 


001703 


001703 


DATCON: 


DATLP: 


DONONE : 


DATLP1: 


DATLP2: 
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DO DATE CONVERSION 


PUSH 
MO 


DATRET: POP 


DATRT1: 
DA 


TAGN: MOV 


R2 
SP,STCKSV 


#DATBUF ,R2 
Se aateaattats 
#3,R4 


RO.R1 
DONONE 
#DASH,R1 
#SLAS,R1 
DONON 
R1,R3,R2 
DATLP 


R 

#DATBUF ,RO 
GENCON 
DATAGN 
RO,R3 

RO 


R3 
#STFLAG, FLAG! 
#DATBUF ,R2 


R 
R5,(R2)+ 
Ra 


DATLP1 
#OATBUF ,R2 


DATLP 
RO 
R1 
R2 
DATVER 
R5 
DATAGN 
#DATRET,R3 
R3 
#6, R4 
R5 
R5 
Re 
DATLP2 
R1 
R2 
Mate RO 
VAXTME 
2 
STCKSV,SP 
R2 


sSAVE STRING COUNTER 
sSAVE_ STACK PTR IN CASE OF ERROR 
POINT TO DATA BUFFER 


RO BYTE ? 
:VES = DONE, THIS STRING 
EVES = DONE, THIS STRING 


YES = DONE T HIS STRING 
7STORE BYTE IN R1 AT LOCATION IN R2 


3L CK 

3 SAVE 1 te ne TO STRING 
POINT TO ree cee TO CONVERT 
SCONVERT THE STRING 


i ILLEGAL CHARS = ASK AGAIN 
SUL 


3GET 
:RESTORE at ie TO STRING 
ER T ON STACK 


COUNTER 

+ CONTINUE TILL DONE 
POINTER 

;DECREMENT PARAMETER COUNTER 
sCONTINUE TILL DONE 
GET YEAR 
GET DAY 
2GET MONTH 
VERIFY DATE 
sANY ER 


OMPT AGAIN 
ERETURN ADD wiry 


H ON S 
: COUNT NT OF ZERO STACK ENTRIES 
:2ERO. howe, CONVERSION 


2$ 

;POINT 10 RESULT BUFFER 

CALL CONVERT TO VAX MM ha ROUTINE 
RESTORE MESSAGE POINTER 


sRESTORE STACK PTR = MAY HAVE PUSHED 
7$ RESULTS ONTO STACK 
GET MESSAGE POINTER 


SEQ 45 | 





ow 
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58 004703 107 34 80008 SUB #MENTLN,R2 
23 ogee 101200 08 001703 ah vy 6 daa 


sPOINT BACK AT BEGINNING OF QUESTION 


SET TO REPEAT = ANSWER MUST BE VALID 
RETURN 


SEQ 46 


oc 
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1 3 
3 F VERIFY DATE VALIDITY 
3 RO = YEAR 

4 : R1 = DAY 

3 : R2 = MONTH 

7 : 

B : OUTPUT: 

9 : RS = 0 IF VALID 
19 ; -1 IF INVALID 
1 904712 115002 DATVER: TST R2 
13 00471 BEQ DATERR 
14 004715 BMI DATERR 
15 004717 106202 000014 CMP #12. ,R2 
16 004721 BMI DATERR 
17 004723 107207 003554 SUB #1900. RO 
18 004725 BMI DATERR 
19 004727 115001 TST R1 
20 004730 BEQ DATERR 
21 004732 BMI DATERR 
32 004734 104203 004341 MOV #TIMTBL=1,R3 
23 004736 105028 ADD 
24 004737 1041 MOV (R3) RG 
25 004740 105204 000000 ADD #0,R4 
8 Re7Ee 8 ooo ae 
rH 004745 110604 ROR RG 
<9 004746 105204 000000 ADD #0,R4 

004750 106202 000002 CMP #2,R2 
31 004752 BNE DATVL1 
32 004754 117401 DEC R1 
33 004755 106041 DATVL1: CMP R4,R1 
34 004756 BMI DATERR 
35 004760 106202 000002 CMP #2,R2 
36 004762 BNE DATVL2 
37 004764 115401 INC R1 
38 004765 114005 CLR R5 
20 904758 106205 177777 RAS RO et. 
41 004772 DATVL2 


T MONTH 
ZERO THEN NO GOOD 
NEG THEN NO GOOD 
:IF NEG THEN NO 

S YEAR TO 1900 
NEG THEN ERROR 
ERO THEN ERROR 


: TH ROR 

sPOINT TO DAYS IN MONTH TABLE 

sPOINT TO CURRENT MONTH 

3GET DAYS IN H 

sCLEAR CARRY 

2 IN yard i cae - DIVIDE BY 4 TO GET DAYS 


sCLEAR C 


sCLEAR CARRY 

21S IT FEBRUARY ?? 

3NO = NOTHING SPECIAL 

sMAKE DAY ONE LESSC(IN CASE LEAP YEAR) 
zDAY_IN RANGE ? 





oer 





SEQ 48 
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1 3 
§ ; UNIT NUMBER HANDLER 
4 004774 UNITCN: PUSH R2 SAVE A ey POINTER 
5 004775 CALL GENCON CONVERT O BINARY 
§ 004777 BNE UNITBD ILLEGAL thane 
005601 104070 001413 MOV RO,UNNO :MOV E TO UNIT NUMBER 
8 005003 POP R2 RESTORE MESSAGE POINTER 
9 005 UNITRT: RETURN 
10 005006 UNITBD: POP R2 3GET MESSAGE POINTER 
11 005007 107202 006002 SUB #MENTLN,R2 ‘POINT BACK AT BEGINNING OF QUESTION 
12 005011 101200 001000 001703 BIS #REPEAT,FLAG1 sSET TO REPEAT = ANSWER MUST BE NON-ZERO 
13 005014 BR UNITRT ;RETURN 


oc 





SEQ 49 
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1 3 

¢ : FORMAT IN 576 ? 

3 : RO => STRING 

§ 00501 SECCN: PUSH R2 sSAVE MESSAGE POINTER 
005061 CALL FIDANS sGET RESPONSE 

8 005021 115001 TST R1 ; TEST RESPONSE 

9 005022 BEQ SECNO SNULL = DEFAULT TO 512 

10 005024 ; BMI SECNO zNO = DEFAULT TO 512 

11 005026 101200 020000 001703 BIS #MODE ,FLAG1 sYES = DO 

12 005031 SECNO: POP R2 sRESTORE MESSAGE POINTER 

13 005032 RETURN 
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4 005034 

5 005035 

§ 005037 

005641 115007 

8 005042 

9 005044 115001 

10 005045 

11 005047 115002 

12 005050 

13 005052 115003 

14 005053 

15 005055 

16 005056 107202 000002 
17 005060 101200 001000 001703 
18 005063 

19 005065 104070 001772 
20 005067 104010 001773 
21 005071 104020 001774 
22 005073 104030 001775 
23 005075 
24 005076 101200 000200 001703 
25 005101 


SERCON: 


SERBD: 


SEROK: 


SERRT: 


SERIAL NUMBER HANDLER 


PUSH R2 

CALL GENCON 

BNE SERBD 

TST RO 

BNE SEROK 

TST 

BNE SEROK 

TST 

BNE SEROK 

TST 

BNE SEROK 
R2 


#MENTLN,R2 
BIS othe” oFLAG1 


RO, SERNUM 
MOV R1,SERNUM+1 
MOV R2, SERNUM+2 


MOV R3, SERNUM+3 
POP 

BIS #QUESDN,FLAG1 
RETURN 


3 SAVE A ety POINTER 
:CONVERT IGH ORDE 
a THEN ILLEGAL CHARS = PROMPT AGN 


iNO chit BITs CAN'T BE ZERO 
:NO + Att 8 Bis CAN'T BE ZERO 
[NO = ALL eis CAN'T BE ZERO 
71S IT ZERO ? 

LL BITS CAN'T BE ZERO 
:GET MESSAGE POINTER 


HS a aan AT BEGINNING OF QUESTION 
3SET T O REPEAT = ANSWER MUST BE NON-ZERO 


3 ER 

RESTORE MESSAGE POINTER 
SET QUESTIONS DONE 
3RETURN 


esssssesss 


RNSSASVERS 


PWN SO VONOUSWN “OO ONOUESWN— 


S8SSSss 


Nonononony 3 a ses 
aS WWh 
NORRNoO 





115001 


101200 
101200 


101200 
105302 


000400 001702 
000200 001703 


002000 001702 éLLNo: 
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DUP DM<=>HOST STARTUP OVERLAY 


DOWN LINE LOAD FILE NAME HANDLER 


: PUSH R2 + SAVE MESSAGE POINTER 

CALL FIDANS RESPONSE 
TST R1 STEST RESPONSE 
BEQ DLLNO ;NULL = DEFAULT TO BEST GUESS 
BMI DLLNO 2NO - DO BEST GUESS 
BIS #DLL FLAG YES _= DO DOWN-LINE LOAD 
BR DLLON T 
BIS #QUE SON, FLAG iSET END OF QUESTIONS FLAG 

: a R2 RESTORE MESSAGE POINTER 


THIS SECTION SKIPS THE NEXT QUESTION 
WHICH PERTAINS TO CONTINUING IF FCT IS BAD 


BIS #BSTGS,FLAG 3:00 BEST GUESS 

POP - GET MESSAGE POINTER 

ADD MLEN,R2 zADD CURRENT MESSAGE LENGTH 

MOV MSGOFF(R2), R1 7GET NEXT MESSAGE opr 

ADD #MENTLN,R2 PAST THE FRONT ENTRIES 

MOV R1,MLEN ;MAK a oo MESSAGE THE NEW LENGTH 


BR DLLONI sRETU 









INT re Conn 


MPNPPoPoPononofnynoty 
OoOOfw—~ 





115402 
115403 


117405 


102200 
104240 
104307 
110707 
104070 
103200 


101200 


106011 
104201 


106200 
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DUP DM<=>HOST STARTUP OVERLAY 


000400 


000071 


177760 
001410 


000400 
001410 
001410 
001410 
000400 
000400 


000025 


177777 


x04 .01 


001703 


001410 
001410 


001410 
001410 


001703 


001703 
001703 


004260 


CNLP1: 
CNLP: 


NOCERR: 


CONLOW: 
CONDON: 
CONDO1: 


SEMERAL — FLOW VALVE 


RO => 


CONERR: MOV 


CONER1: 


R4 
FINLEN 
A eatin 


CONDON 

(R4), TEMP 
#HIBYTE, TEMP 
ore TEMP 


#°9, TEMP 
CONER1 

#*C17, TEMP 
TEMP ,RO 

NOCE 

R1 

— 
NOCERR 

R3 

NOCERR 
CONERR 

R5 

CONDON 
MULT10 
#FLIPON,FLAG1 
CONL 

(R4)+, TEMP 
RO 

TEMP ,RO 

RO, TEMP 
#FLIPON,FLAG1 
CNL 

#FLIPON, FLAG 
CNLP1 

R4 

R1,R1 


#21.,R1 
ERRMNT 


R4 
#177777, ,MLEN 
CONDO1 


:RESULT REGIS 
; S_STRING NULL 
sYUP = EXIT 
GET WORD > 

3CLEAR_HIGH 
3LESS THAN °° 


;YES = 
;GREATER THAN 
YES = ERROR 


7SUB ASCII 60 1 neeist CHARACTER 


;Avv TO RESULT 
ARRY 


; RRY 

sELSE INC NEX 
3NO CARRY - C 
3 INC NEXT REG 
3NO_ CARRY 





sSAVE R 
3 FIND LENGTH vod STRING 


ie 


we 
(60 OCTAL) ? 
9? 


HEN 
T REGISTER 


ONT 
ISTER 


= CONT 
ERROR IF CARRY WAS SET 
:DECR ne NT COUNTER 


Y BY 
WHICH BYTE ARE 


;DONE ALL OF 
:GET WORD AGA 
sSAV 
37GET FOR SWAB 
;MAKE HIGH BY 

sSTORE BACK 
RESTORE RO 
[CLEAR 


FLAG 
;PROCESS HIGH 
LAG 


SET FLIP FLA 


:D0 L 
ste Stone R4 
zSET Z FLAG 


“we ON ? 
Oa WORD 


TE LOW 


BYTE 


ERROR 4, vous RESPONSE ERROR 


ZERROR R 
;REST 


ORE Re 
7SET NOT Foun ~ CALE ~ MESSAGE LENGTH) 


AND RETUR 


—— ae 





SEQ 53 
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DUP DM<=>HOST STARTUP OVERLAY 


1 , ix 
¢ ; MULTIPLY BY 2 
: Dn RO,R1,R2,R3 = 64-BIT VALUE TO BE MULTIPLIED 
= 2 
6 O03er8 105207 000000 MULT2: ADD #0,R0 CLEAR CARRY 
? 005 110207 ROL RO 7SHIFT FIRST WORD 
8 005301 110201 ROL Ri SHIFT CARRY AND SECOND WOR 
9 bo 3806 110606 ROL Re 7SHIFT CARRY AND THIRD WORD 
10 005303 11020 ROL R sSHIFT CARRY AND FOURTH WORD 
11 005304 BCC MULON :I1F NO CARRY THEN DONE 
12 005306 MULERR sELSE — 
13 005310 MULDN: RETURN sRETU 
14 005312 104201 000025 MULERR: MOV #21.,R1 ‘RESPONSE ERROR 
15 005314 CALL ERRMNT ERROR EXIT 


UDAF52 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 33 


DUP DM<=>HOST STARTUP OVERLAY 


4 

é 

8 

9 

10 

11 005316 

\¢ 005320 104070 015763 
13 005322 104010 015764 
14 005324 104020 015765 
15 Boaeee 104020 015766 
16 0053 

17 005332 

18 005334 105307 015763 
19 005336 

20 005340 115401 
$! 005341 105301 015764 
2 005343 

23 005345 115402 

24 005346 105302 015765 
25 005350 

3? 003333 105303 015766 
36 posses 

29 005357 

30 005361 

31 005363 104201 000025 
3 005365 


= Bo Ge Ge Ge Se Se Se Se Se 
e~ 
— 
a 
So 


MULTIPLY BY TEN 


RO,R1,R2,R3 = 64-BIT VALUE TO BE MULTIPLIED 


TO MULTIPLY BY TEN : 


ADD (N*8)+(N*2) TO GET (N*10) 


CALL LT2 

MOV e IMAG 
MOV R1, IMAGE +1 
MOV are 


MULT 
ADD IMAGE ,RO 
10$ 


INC R1 
10$: ADD IMAGE+1,R1 
BCC 20$ 
INC R2 
208: ADD {Race ve Re 
BCC 0$ 
INC R3 
30$: ADD IMAGE+3,R3 
BCC 40$ 
BR MULER1 
40$: RETURN 
MULER1: MOV #21.,R1 


CALL ERRMNT 


sGET N*® 2 
sSTORE FIRST WORD 


E D wo 
sSTORE FOURTH WORD 
sGET N* 4 

:GET N* 8 

zADD INN * 2 

sSKIP INC IF CARRY CLEAR 
sPROP CARRY 

sADD INN ®* 2 

sSKIP INC IF CARRY CLEAR 
sPROP CARRY 


sADD INN * 2 
SKIP INC IF CARRY CLEAR 
;PROP CARRY 


SADD INN ® 2 

i SKIP_INC IF CARRY CLEAR 
TALL DON 

SRESPONSE ERROR 

TERROR EXIT 





Ce st 


—— 
¥ 
, 


NM—ODOONOUSWN “OO COONOU Sw 


ssssssseseses 


FINLEN: 
FINLN1: 


F INDON: 
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DUP DM<=>HOST STARTUP OVERLAY 


FIND THE LENGTH OF A STRING 
RO => STRING 


OUTPUT: 
R5 = COUNT 

PUSH RO 

CLR R 

MOV (RO) ,R1 
BIC #HIBYTE. RI 
BEQ F INDON 

INC R5 

MOV (RO)+,R1 
BIC #LoByTE, R1 
BEQ FIND 

INC R 

BR FINLN1 

POP RO 

RETURN 


RO 
SELEAR COUNTER 
WORD 


SCLEAR ae BYTE 
HncREnewt HEN oo 


: INCREMENT COUNT 
REPEAT WITH NEXT WORD 
sRESTGRE RO 
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1 3 
§ $ DETERMINE IF VALUE IS ‘Y°,NULL, OR NOT Y 
4 3 INPUT: 
2 3 RO => STRING 
7 $ OUTPUT: 
8 $ R1 = 11F ‘Y' 
9 3 O IF NULL 
19 $ -1 IF NOT Y 
\¢ et oat) 11400 FIDANS: CLR R1 a OUTPUT 
13 00541 1ocyo3 MOV (RO) ,R2 T WORD 
14 005414 103202 177400 BIC #HIBYTE,R2 SCLEAR HIGH STU 
15 005416 BEQ FION wel sIF ZERO THEN Wis NULL 
16 005420 103202 000040 BIC ra R2 sMAKE IT UPPER CASE 
17 005422 106202 000131 CMP Y,R2 718 IT ‘y* ? 
18 005424 BNE notY SNOPE 
19 005426 115401 INC R1 sMAKE IT 1 
20 opeeee FIDNUL: RETURN sRETUR 
21 005431 117401 NOTY: DEC R1 sMAKE i jeearive 
22 005432 F IDNUL 3 


MO OCONAVUEWN $9 OONOUS WN 


NR) 2 


23 005460 


000001 


001702 





SEQ 57 
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USE EXISTING FCT ? 
RO => STRING 


EXTFCT: PUSH R2 SAVE MESSAGE POINTER 
CALL = FIDANS ‘WHAT'S THE ANSWER 
TST R1 ‘TEST THE RESPONSE 
BMI EXTRET =NO = EXIT | 
BIS #FCTAVL, FLAG ‘YES = SET THE FLAG 
; THIS SECTION SKIPS THE NEXT QUESTION 
: WHICH PERTAINS TO DOWN-LINE LOADING 
POP R2 GET MESSAGE POINTER 
ADD MLEN,R2 ADD CURRENT MESSAGE LENGTH 
MOV MSGOFF (R2),R1 [GET NEXT MESSAGE LENGTH 
ADD #MENTLN,R2 [PAST THE FRONT ENTRIES 
MOV R1,MLEN TMAKE THIS MESSAGE THE NEW LENGTH 
BR EXTRT1 RETURN 
Py | 
i TRET: POP R2 ZRESTORE MESSAGE POINTER 


RETURN | 


101200 000020 001702 
101200 000200 001703 


CVs Se Se Ge Se 
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CONTINUE IF BAD ?? 


RO => STRING 
ONBAD: PUSH R2 

CALL FIDANS 

CMP #1,R1 

BNE CONEXT 

BIS #GOBAD ,FLAG 

BR CONTEX 
CONEXT: BIS #QUE SON, FLAG1 
CONTEX: POP R2 


RETURN 


[NOPE = EXIT 
YUP = SET THE FLAG 
TSET FLAG ALL DONE QUESTIONS 


a a 


SEQ 58 





4 

5 

$ 005505 

005507 

8 005510 
9 Boaei¢ 
10 00551 
11 005514 
\¢ 005515 
13 005517 
Ve 60338) 
15 005524 
16 003366 
17 O0336 
18 005531 
19 005533 
20 005535 
21 005536 
$8 005540 
24 tt 
25 00554 
26 005545 
$f 603286 
8 00555 
29 005551 
30 003938 
31 00555 
32 005554 
33 005556 
34 005557 
35 005561 
36 005562 
37 005563 
38 005565 
39 
40 
41 
$¢ 005566 
43 005570 
44 005571 
45 005573 
46 005574 
47 903378 
48 0055 
49 005601 
50 005603 
51 005605 
26 005606 
53 005610 
54 

55 

56 cosets 
57 00561 


SA= SRORoe 
ExSLEE 
ooooo 
NRWUWWww 


3 


at ad ead ed ob od ed ab 
oo 


170140 


Ss $8 S838 


004342 


040000 
000000 


100000 


001410 


Mite Ge Oe Oe te 


VAXTME : 


30$: 
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re CONVERSION ROUTINE 


=> QUAD-WORD TO STORE RESULT 


MOV #<DAYS=1>*4 RG 
MOV (SP)+,R2 
BNE 

DEC RG 

MOV (SP)+,R1 
DEC R2 

MOV R2,DDUMMY 
CLR db 

MOV 

CLR TEMP 

PUSH = RG 

MOV #DDUMMY ,R3 
MOV #TEMP, RE 
CALL  DMUL 

POP RG 

MOV TEMP,R3 
MOV 

TST 

BPL 408 

TST R2 

BPL 40 

MOV (SP) ,R5 
INC 

MOV R5, (SP) 
DEC R1 

ADD #TIMTBL,R1 
ADD R4,R3 

BCC 51$ 

INC R2 

BNE 50$ 

DEC R1 

DO A ASHC #-2,R2 INSTRUCTION 
ADD #0,R3 

ROR R 

ADD #0,R3 

ROR R 

ADD #0,R3 

ROR R 

Bis -«#40000.R3 
ADD +0oRS 

ROR R 

BCC 53$ 

BIS #100000,k3 
ADD (SP)+,R3 
BCC 54$ 


Y+1 
tha TEMP 


3GET 


ZBRANCH IF NOT 


+ ell A de FROM BEGIN TO 1901 


1900 
Rainer TO NOT BE A LOOP YEAR 


Ger SHONTH 
YEAR AFTER aad YEAR DIVISABLE BY 4 
3FOR TI 


ZCLEAR HIGH 
QUART 


ORDER 
ER DAYS IN A YEAR 
aa a ORDER 


DITTO 
IGET YEAR Mg QUARTER DAYS IN A YEAR 


zADD_IN DAY OF MONTH 
sSKIP INC IF NO CARRY 


sREST ORE DAY 
;LOW GRDER 


aa 


ZAR ER 1900 ? 
[GET DAYS 
{ADJUST FOR 1 DAY LESS DAY IN 1900 


[BIAS MONTH TO 


TEMP+1 ,R2 HIGH ORDER 
NOTE: — BITS OF R3+R4 ARE ines EM YEAR 


ZERO 


2 INDEX yt MONTH TABLE 


ZADD T 
PROP CARRY 


0 
F NO canny SKIP 


3GET LENGTH OF NEXT ate MONTH 


BRANCH UNTIL END 


POINT TO FIRST TIME MULTILPLIER 


3MAKE SURE cAaAY Is 0 


SHIFT RIGHT 


;CLEAR CARRY 
3ROTATE rth 1 


1 


:ROTATE HIGH BP 1 


NO CARRY 
:00 my ia INTO LOW ORDER 
;SHIFT olay — RIGHT 1 


NO C THEN SKIP 
D0 Murr INTO LOW ORDER 


SEQ 59 


1 
1 
1 
1 
1 





58 005615 
59 


Sees 
NO 


Wr 


SELSAFSERLS 
ssssss 
ees 


95 00s663 
96 005664 


RELLSSEL 


115402 


11540, 
1 


100162 
117405 


104415 
104265 
104265 





gg gage 
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INC R2 sPROP CARRY 
INIT QUAD-WORD TO DAYS SINCE BASE DATE 


age QUAD WORD POINTER 
MOV R3,(R4)+ 


MOV 
;COPY LOW ORDER DAYS 
MOV oo COPY HIGH ORDER DAYS 
CLR R sFOR REST OF QUAD-WORD CLEAR 
MOV RS, (R4)+ 3 CLEAR 
MOV R5,(R4) 3CLEAR 
LOOP TO MERGE TIME OF DAY INTO DAYS SINCE BASE DATE 
MOV RO,R4 COPY QUAD WORD POINTER 
MOV #4 ,R5 : INNER LOOP COUNT 


CALCULATE QUAD-WORD <= QUAD-WORD * (R1) + (SP)+ 
sFETCH NEXT ny OF QUAD-WORD 


MOV (R1)-R [GET MULTIPLIE 
MOV R3,DDUMMY ‘STORE FOR MULTIPLY 
MOV R2. TEMP [FOR MULTIPL 
CLR DDUMMY +1 CLEAR HIGH" ORDER 
CLR TEMP+1 TT0 
PUSH RG SAVE QUAD=WORD POINTER 
MOV #DDUMMY ,R3 :FOR MULTI 
MOV #TEMP RS SDITT 
CALL = DMUL [DO MULTIPLY 
MOV (R4)+,R3 [GET LOW ORDER RESULT 
MOV (R4) ,R2 3GET HIGH ORDER RESULT 
POP R4 SRESTORE QUAD-WORD POINTER 
TST R2 t1S IT POSITIVE 
BPL 80$ : oK. 
ADD (R1),R2 [MAKE IT AN UNSIGNED MULTIPLY 
ADD (SP) -R3 [ADD HIGH ORDER OF PREVIOUS MUL. 
BCC 81$ [SKIP INC IF NO CARRY 
INC os [ADD CARRY 
MOV R3, (RG) SSTORE WORD INTO QUAD-WORD 
MOV Re. (SP) 3 SAVE HIGH ORDER WORD 
DEC R COUNT 
BNE 70 $ CONTINUE TILL DONE 
V =(R1),R5 POP’ R1 


MO 

BEQ 90$ IF a THEN DONE 
£00 Next MULTIPLIER 
MOV :D0 FINAL POP 
RETURN AND RETURN 
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1 3 

§ 3 BRING IN ODT IN HIGH MEMORY 
4 .IF DF DEBUG 

5 «NLIST 

6 . = SODT 

4 DMODT 

$ LIST 


-ENDC 


SEQ 61 | 
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INITIALIZATION OVERLAY (G1) 


1 .SBTTL INITIALIZATION OVERLAY (G1) 
5 : INITIALIZATION OVERLAY 
5 005701 DMOVLY 6G1,START 
6 004014 CALL —INITL ZINITIALIZE DISK 
004616 102200 000001 001702 BIT #FCTAVL, FLAG SUSE RESIDENT FCT ? 
4 904021 BNE DOLBN TYES = ONLY DOL 
9 004023 104201 000000 MOV #F1,R1 TELSE DO D/XBN FIRST 
10 004025 BR DXBN ‘SKIP LBN FLAGGING 
11 004027 104201 000003 DOLGN: MOV #F2,R1 [SIGNAL LBN FORMAT 
12 004031 DXBN: CALL NEXT ‘BRING IN NEXT OVERLAY 
14 : 
13 ; COMPUTE DISK CONSTANTS FROM CHARACTERISTICS 
ie 
19 ; COMPUTE TRACKS/CYLINDER 
21 004033 104207 001525 CONINT: MOV #SCR,RO :POINT TO SUB CHARACTERISTICS 
22 004035 104673 000003 MOV TRKGRP(RO) ,R3 ‘LOAD TRACKS/GROUP 
23 004037 103203 177400 BIC #HIBYTE,R3 [CLEAR HIGH BYT 
24 004041 104030 001403 MO R3,DDU [STORE IN DUMMY AREA 
25 004043 114 001404 CLR MMY+ [CLEAR FOR STORE 
26 004045 104673 000002 MOV GRPCYL (RO) ,R3 [GET GROUPS/CYLINDER 
27 004047 103203 177400 BIC #HIBYTE,R3 [CLEAR HIGH BYTE 
28 004051 104030 001410 MOV R3, TEMP [STORE IN TEMP AREA 
29 004053 114000 001411 CLR TEMP+1 :CLEAR HIGH ORDER 
30 004055 104203 001403 MOV #DDUMMY ,R3 :SETR UP FOR MULT 
31 004057 104204 001410 MOV PRG F 
32 004061 CALL OD [COMPUTE IT 
33 004063 104240 001624 MOV (R4)+, TRKCYL [LOAD FOR STORE 
34 004065 104140 001625 MOV (R4), TRKCYL#1 [LOAD FOR STORE 
36 : COMPUTE LBN'S/CYLINDER 
38 004067 102200 020000 001703 BIT #MODE ,FLAG1 :WHAT MODE 
39 004072 BNE $ SIF SET THEN 576 
40 004074 104673 000011 MOV LBNT12(RO) .R3 :GET LBN/TRACK FOR 512 
41 004076 BR *SKIP 576 SETUP 
42 004100 104673 000015 1. MOV LBNT76(RO) ,R3 'GET LBN/TRACK FOR 576 
43 004102 103203 177400 23: BIC #HIBYTE ,R3 ‘CLEAR HIGH BYTE 
44 004104 104030 001410 MOV , [FOR MULT 
45 004106 114000 001411 CLR TEMP+1 ‘FOR STORE 
46 004110 104204 001410 MOV #TEMP,RG [FOR MULTIPLY 
47 004112 104203 001624 MOV #TRKCYL,R3 :DITTO 
48 004114 CALL ‘MUL ‘GET LBN'S/CYL 
49 004116 104240 001630 MOV (R4)+,LBNPCY [GET LOW ORDER 
30 004120 104140 001631 MOV (R4) ,LBNPCY+1 [GET HIGH ORDER 
3 ; COMPUTE RBN'S/CYLINDER 
54 004122 104673 000004 MOV RBNTRK (RO) ,R3 :GET RBN'S/TRACK 
55 004124 103203 177600 BIC #HIIBYTE RS [CLEAR OUT GARBAGE 
56 004126 104030 001410 MOV R3, TEMP SSTORE FOR MULT 
57 004130 114000 001411 CLR TEMP+1 [FOR STORE 





1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 





58 0041 
59 0041 
60 0041 
61 004140 
o¢ 004142 
6 

64 

65 

66 

67 

68 004144 
69 004146 
70 004151 
71 004753 
72 004155 
73 004157 
74 004161 
75 004163 
76 004165 
77 004167 
78 004172 
79 004175 
80 004177 
81 004202 
82 004205 
83 004207 
84 Soesig 
85 00421 
86 004217 
87 004221 
88 004223 
89 

90 

91 

92 

93 004225 
94 004227 
95 004232 
96 004234 
97 004236 
98 004240 


99 004242 
00 004244 
01 004246 
02 004250 
03 

04 

05 

06 004252 
07 004254 
08 004256 
09 004260 
10 poe Ses 
11 00426 

12 poesee 
13 004267 
14 004271 





670 
670 


240 


207 


RE RERAEER 
8 


_—— 
RRRRAGE OS 
oo beget ge 
Ww ™“ 
So Ww 


ee a 


00001 
000017 
001403 


002160 
002161 





001410 


001617 
001703 
001403 
001404 


001403 
001404 


001410 





2 
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INITIALIZATION OVERLAY ( 


#TEMP,R4 
#TRKCYL,R3 
DMUL 


(R4)+, RBNPCY 
(RG) ,RBNPCY+1 


LBN'S IN LBN AREA 


#SCR,RO 
CYLBN(RO), TEMP 
CYLBN+1(RO), R3 


P,R4 
PLBNPCY, R3 
ott 


LBN 
TERA cEBHC BNET 
#MODE ,FLAG1 


LBNH12(RO) ,DDUMMY 
LBNH2+1 (ROD, DDUMMY+1 


LBNH76 (RO) , DDUMMY 
LBNH76+1 (RO) ,DDUMMY +1 
#DDUMMY , R3 


DSUB 
(R4)+, TOTRCT 
(R4), TOTRCT#+1 


RBN'S IN LBN AREA 


#SCR,RO 
CYLBN(RO), TEMP 
CYLBN+1(RO) ,R3 
#HD.CLR,R3 
R3, TERP+1 
#TEMP RG 
#RBNPCY ,R3 
DMUL 
(R4)+, RBNLBN 
(R4) ,RBNLBN¢1 


SECTORS/TRACK (512) 
RBNTRK (RO) R3 
IBYTE R$ 


#H11B 
LNT ie(RO) R4 
#HIBYTE ,R4 

R4,R3 

R3,SECTRK 
R3.SECTI2 

SECT tae 

SECT12+1 





3FOR ote 


3D 

3GET RBN*S/CYL 
7GET LOW ORDER 
3GET HIGH ORDER 


POINT TO aT gel 
3GE Bo. LINDERS 
;GET HIGH ORDER 

CLEAR STARTING CYLINDER BITS 
3$T ORE IT 


sFOR MULT 
POINT TO SS in tee 
;GET LON'S IN LBN AREA 
GET LOW ORDER 

GET HIGH ORDER 


cI ota HEN 576 
T LBN*S IN HOST AREA (512) 
:GET HIGH - ER 

SKIP 576 SETUP 
SGET LBN* s° IN HOST AREA (576) 
3GET HIGH ORDER 


? SUBTRACT TO GET LBN’S IN RCT 
GET LOW 
:GET HIGH ORDER 


POINT TO CHARACTERISTICS 
GET LBN CYLINDERS 

3GET HIGH ORDER 

CLEAR STARTING CYLINDER BITS 
STORE IT 

3FOR MULT 

:POINT TO RBN’ et Hr 

GET LBN'S IN LBN AREA 

GET LOW ORDER 

GET HIGH ORDER 


:LOAD RBN*S/TRACK 
;CLEAR OUT GARBAGE 
LOAD LBN*S/TRACK(512) 
CLEAR OUT HIGH BYTE 
ADD FOR SECT/TRACK 

: STORE IT 


E IT 
SCLEAR FOR STORE 
CLEAR FOR STORE 
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INIT 


-_ 


ni 

119 

118 004273 
119 004275 
130 004277 
121 004501 
122 004303 
123 004304 
124 004306 
125 

126 

127 

128 004310 
129 004313 
130 004316 
131 004320 
132 004322 
133 004324 
134 004326 
135 

136 

137 

138 004331 
139 004334 
140 004336 
141 nt re 
142 00434 

143 004344 
144 

145 

146 

147 004346 
148 004350 
149 004353 
150 004356 
151 004360 
152 004362 
153 004364 
154 004366 
155 004371 
156 004373 
157 004375 
158 004377 
159 004401 
160 004402 
161 004404 
162 004406 
163 004410 
164 004412 
165 004414 
166 004416 
167 004420 
168 OOeeSs 
169 00442 

170 004425 
171 004427 


5 axes 


= 
oo 


207 


Sase PEPEEEEEEE 
Wo 
ow 


SE Frees 
3 


ae od td td od ot ed 
ooo 


R 
3 


ALIZATION OVERLAY (G1) 


001 
002151 


001403 
001404 
001615 


001410 


001403 


COMPUTE SECTORS/TRACK (576) 


MOV RBNTRK(RO) ,R3 
BIC #HIIBYTE RS 

MOV LBNT76(RO) .R4 
BIC #HIBYTE ,R4 

ADD R4,R3 

MOV R3,SECT76 

CLR SECT76+1 

COMPUTE SECTORS/CYLINDER 
MOV SECTRK ,DDUMMY 
MOV SECTRK+1 ,DDUMMY +1 
MOV #DDUMMY , R4 

MOV #TRKCYL,.R3 

CALL MUL 

MOV (R4) ,SECTCY 

MOV 1(R45, SECTCY+1 


COMPUTE SECTORS IN XBN AREA (R4 


MOV XBNCYL (RO), TEMP 
CLR TEMP+1 

MOV #TEMP RS 

CALL D 

MOV (R4)+,XBNSEC 
MOV (R4) ,XBNSEC+1 


COMPUTE LAST CYLINDER NUMBER ON 


MOV #SCR,RO 

MOV CYLBN(RO) ,LBNCYL 
MOV CYLBN(RO) . TEMP 
MOV CYLBN+1(RO) ,R4 
MOV R4,LBNCYL+1 
MOV R4. TEMP+1 

MOV ATEMP,RG 

MOV XBNCYL (RO) ,DDUMMY 
CLR DDUMMY +1 

MOV #DDUMMY , R3 
CALL 

MOV DBNCYL (RO) ,R3 
SWAB 

BIC #HIBYTE ,R3 
MOV R3, DUMMY 

CLR DDUMMY +1 

MOV #DDUMMY , R3 
CALL ADD 

MOV 1(R4),R2 

MOV STCYL(RO) ,R3 
BIC #LO,R3 

BIS R3,R2 

MOV R2.1(R4) 

MOV #ONE ,R3 

CALL 


sLOAD RBN'S/TRACK 


CLEAR OUT GARBAGE 
LOAD _LBN*S/TRACK(576) 
CLEAR OUT HIGH BYTE 


HIGH BY 
{ADD FOR SECT/TRACK 
TCLEAR FOR STORE 


sLOW ORDER 
HIGH ORDER 
SET _UP FOR MULT 


[COMPUTE IT 

[LOAD FOR STORE 
[LOAD FOR STORE 
=> SECTORS/CYL) 


LOAD NUMBER Fay CYLINDERS 


: R 
LOAD FOR STORE 
SUBUNIT 


POINT TO CHARACTERISTICS 
3GET LOW ORDER LBN CYLINDERS 
O FOR MATH 


LSO 

SET UP FOR ADD 

LOAD XBN CYLINDERS 
CLEAR HIGH ORDER 

SET UP FOR ADD 

:GET LBN+XBN 3a? 


3SET UP D 

GET LBN+XBN+DBN CYLINDERS 

; HIGH ORDER 

2GET CYLINDER BITS 

CLEAR OUT REST OF WORD 

20R_IN CYLINDER HIGH BITS 

sSTORE BACK 

a TO GET NUM OF LAST CYL 


SEQ 64 


N 5 
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172 04431 104240 001604 MOV (R4)+, CYLNUM 
173 004 433 104140 001605 MOV (R4),CYLNUM+1 
129 : COMPUTE NON-PAD RCT 
177 004435 104300 001620 001410 MOV RBNLBN, TEMP 
178 004440 104300 001621 001411 MOV RBNLBN+1, TEMP+1 
179 004443 104200 000177 001403 V #127., 

180 004446 114000 001404 CLR DDUMMY 

181 004450 104204 001410 MOV ATEMP,RG 

182 004452 104203 001403 MOV #DDUMAY ,R3 
183 004454 CALL DADD 

184 004456 104200 000200 001403 MOV #128. ,DDUMMY 
185 004461 114000 001404 CLR DDUMMY+1 

186 004463 104203 001403 MOV #DDUMMY ,R3 
187 004465 CALL DDIV 

188 004467 104140 001746 MOV (R4) ,RCTLBN 
189 004471 105200 000002 001746 ADD #2,RCTLBN 
191 ; COMPUTE NON-PAD FCT 
193 004474 104300 001620 901410 MOV RBNLBN, TEMP 
194 004477 104300 001621 0014 MOV RBNLBN+1, TEMP+1 
195 004502 104200 000002 001403 MOV #2,0DUMMY 

196 004505 114000 404 CLR DDUMMY +1 

197 004507 104204 00141 MCV ATEMP,RG 

198 004511 104203 001403 MOV #DDUMMY ,R3 
199 004513 CALL OD 

200 004515 104200 000177 001403 MOV #127. DDUMMY 
201 004520 114000 001404 CLR DDUMMY +1 

202 004522 104204 001410 MOV OTEAP. "Ri 

203 004524 104203 001403 MOV #DDUMAY, R3 
204 004526 CALL DAD 

205 004530 104200 000200 001403 MOV #128. ,DDUMMY 
206 004533 114000 001404 CLR DDUMMY +1 

207 004535 104203 001403 MOV #DDUMMY ,R3 
208 004537 CALL DIV 

209 004541 104140 001723 MOV (R4) ,FCTSUB 
210 004543 104640 000001 001724 MOV 1(R45 ,FCTSUB+1 
211 004546 104200 000002 001403 MOV #2, DDUMMY 
212 004551 114000 001404 CLR DDUMMY +1 

213 004553 104203 001403 MOV #DDUMMY ,R3 
214 004555 CALL = DMU 

215 006557 104140 001745 MOY (R4) ,FCTNPD 
216 004561 115400 001745 INC FCTNPD 

$15 ° INITIALIZE GOOD DATA BLOCK 
220 004563 104203 011132 MOV #GDBLKR3 

221 004565 104302 002131 MOV DWRD, R2 

222 004567 100232 MOV R2,(R3)¢ 

223 004570 104204 000125 MOV #85.,R 

224 004572 104302 002126 OVER: MOV FWRD,R2 

225 004574 100232 MOV R2, (R3)+ 

226 004575 104302 002127 MOV SWRD ,R2 

227 004577 10023 MOV R2,(R3)+ 

228 004600 104302 002130 MOV TWRD RZ 





SEQ 65 


MAKE IT CURRENT CYLINDER 
LOAD HI ORDER 


GET LOW ORDER LBN'S IN HOST AREA 
GET HIGH ORD 
SPOR S itis -_ DIV FUNCTION 


FOR ADD 
{DITTO 
2ADD 
zFOR DIVIDE (128 RBN/RCT BLOCK) 
;FOR STORE 


sPOINT TO IT 

D0 DIVIDE 

GET LOW ORDER QUOTIENT 
FOR CONTROL BLOCKS 


GET LOW ORDER LBN'S IN HOST AREA 
i. HIGH ORDER 

;FOR DIVIDE BY 2 

;DITTO 


SETUP 
; SETUP 
CALL IDE 

D 12, - DIV FUNCTION 


a 
zFOR DIVIDE (128 RBN/RCT BLOCK) 
FOR STORE 


:POINT TO IT 

:D0_ DIVIDE 

FCT SUBTABLE SIZE 
HIGH ORDER 
FOR MULT 

7CLEAR HIGH WORD 
FOR DIVIDE 

:D0 MULTIPLY 


sNON-PAD FCT BLOCKS 
FOR NON-PAD FCT BLOCKS 


AS TO ouires 
DIAGNOSTIC WO 

‘ IT 
SSET OUNTER 
zEIRST "WORD OF PATTERN 
SECOND WORD OF PATTERN 


; STORE 
THIRD WORD OF PATTERN 


B 6 
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29 004602 100232 mo R2,(R3)+ 
iphtas 17404 R4 


sSTORE IT 
sDECREMENT COUNTER 
OVER REPEAT TILL DONE 
EOC Re sEDC FOR PATTERN 
R2,(R5)+ sSTORE IT 


SET UP END OF IMAGE POINTER 





338 004611 104203 001606 MOV #SECTRK,R3 i SEC/TRACK 

39 004613 104200 000003 001410 MOV #IMLEN, TEMP [FOR MULT 

240 004616 114000 001411 CLR TEMP+1 FOR STORE 

241 904620 104204 001410 MOV ATEMP RG ‘SET UP FOR MULT 

242 004622 CALL DMUL iGET vENGTN OF IMAGE BLOCK 
243 004624 104200 015763 001403 MOV #IMAGE ,DDUMMY FOR ADD 

244 0046¢7 114000 001404 CLR DDUMMY+1 :CLEAR HIGH BYTE 

245 004631 104203 001403 MOV #DDUMMY ,R3 SET UP 


FOR ADD 
246 004633 CALL DADD ;ADD TO GET ADDRESS 
247 004635 104140 001714 MOV (R4) ,E IMAGE GET ADDRESS 


2 


an 
mn 


2 « 
ALI 
4 
5 
§ 004637 
Petey 
8 00464 
9 004644 
10 Bpeeee 
11 00465 
\¢ 004652 
13 004654 
15 004660 
16 poeees 
17 004665 
18 sng th 
19 00467 
20 004675 
21 004700 
22 004703 


001410 


001717 
001716 


001717 
001716 
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COMPUTE INTERLEAVE FACTOR 


#CR,RO 
REVSEC(RO) ,R3 
#uIBYTE, R3 
R3,1 


== 
Im 


EMP 
#TEMP,R4 


#SECTRK,R3 
CUTOF , TEMP 
#THREB, TBLK 


#44, SKPCNT 


ISKIP 
#TWOB, TBLK 
#33,SKPCNT 


iGET 
3GET 


POINT TO CHARACTERISTICS BLOCK 
EVS/SECOND 


INTO LOW BYTE 
CLEAR ne BYTE 
MULTIPLY 


CLEAR FOR STORE 
T_UP MULT 


I-LEAVE 
TELSE DO TRI-LEAVE 
INIT CHECK PASS OFFSET 
SKIP BI-LEAVE SETUP 


;D0 BI-LEAVE 
2 INIT CHECK PASS OFFSET 


BE ese ee ee we QE, SA rites ne SPO OEE a MO PEN AT 


2« 
ALI 
; 
4 004703 
5 004705 
6 004707 
? 004710 
8 004712 
9 004714 
0 004716 
1 004721 
¢ 004723 
004726 
4 004730 
5 004733 
6 004735 
7 004740 
8 
9 
0 
1 
2 
3 
4 004742 
5 004745 
6 004750 
7 004752 
8 004754 
9 004756 
004760 
1 004762 
2 004764 
3 004766 
004770 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
: 
2 
30 
3 
3 
3 
34 





001512 
000001 


177760 
001731 
001525 


1 
001726 
020000 


000020 


000014 
001730 


001616 
001617 
001410 
001620 


002151 


000001 
002007 
001640 
001637 





Se Se See te ee Aad 
AM 


MOV R2 
MOV (R4) , HGHPBN 
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FILL IN FCT INFO 


#CR,RO 

MOV ERCPY CRO) .R3 

BIC #ECLR,R3 

MOV R3,FCTCPY 
#SCR,RO 

MOV FCTS2(RO) ,FCTFMT 
FCTEMT+#1 

BIT #MODE ,FLAG1 


BEQ 

“4d RCTS76(RO) ,RCTFMT 
MOV RCTS12(RO) ,RCTFMT 
CLR RCTFMT+1 


COMPUTE HIGHEST PBN IN LBN AREA 


MOV LBNLBN, TEMP 
MOV LBNLBN+1, TEMP+1 
TEMP,R4 


MOV e P 

MOV #RBNLBN,RS 
CALL 

MOV #ONE ,R3 


MOV 1(R4) ,R2 


SUB ST.LBN,R2 
HGHPBN+1 


POINT TO CHARACTERISTICS BLK 
sGET F/RCT COPIES 

:GET INTO LOW BYTE 

sCLEAR OUT REST OF GARBAGE 


;POINT TO SUBUNIT CHARACTERISTICS 
sGET FCT SIZE IN SECTORS 
; HG ORDER 


sWHAT MODE ARE WE IN 
2IF CLEAR THEN IN 51 
sELSE GET 576 RCT SI 
sSKIP_ 512 STUFF 

:GET RCT SIZE 

:CLEAR HIGH ORDER 


? 
2 MODE 
ZE 


sGET LOW ORDER 
3GET ty ORDER 


SPOINT TO RBN’S IN LBN AREA 
{ADD TO GET HIGHEST PBN 


[TO GET ACTUAL PBN NUMBER 
[GET HIGH ORDER 
‘SUBTRACT TO GET RELATIVE LAST BLOCK 


; E 
GET HIGH ORDER 








3 


SESSESESS SES 


& 
5 
6 
? 
8 
& 
0 
1 
a 
3 
4 
5 
6 
4 
8 
3 


KR RRERERLLGRKR KREF 


ee 
Ww for 


RR AF 


& 


R 
R 
o 


noonwan 


S58 
Sore e sas 


& 


eee ee ed ad ed ed ed ed od ed 
O29. 


8 


NOUSWN =O CON 
—— tees 


4 
5 
5 
5 
5 
5 
5 
5 
5 
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COMPUTE REVECTOR BUFFER ADDRESS AND MAX REVECTOR COUNT 


MOV #IMLEN, TEMP 

CLR TEMP+1 3 

MOV ATEMP,RG 

MOV #SECTRK,R3 

CALL OD 

MOV TEMP,R3 : 

MOV #IMAGE, RG 

ADD R3,R 

MOV R4, eReaur 

MOV R4.ERPNT 

MOV #BMAX, TEMP 

CLR TEMP+4 

MOV R4 ,DDUMMY 

CLR DOUMMY+1 

MOV ATEMP,RG 

MOV #DDUMAY , R3 

CALL SUB 

MOV TEMP,R4 

ROR RG 

MOV R4 ,EMAX 

STORE RETRY AND RECOVERY LEVELS 

MOV #CR,RO 

MOV ERY (RO), R3 

BIC #HIBYTE,R3 : 

MOV R3, RECOV : 

MOV Ra. RECT ; 

MOV RTRT GRO) PR3 

ROR R3 

ROR R3 

ROR R3 

ROR R3 

BIC #HI2BYTE,R3 

INC ; 

MOV R3,RETRY : 

CLR TMPTRY : 

SET UP _ NG TIMEOUT 

MOV #CR,RO : 

MOV LONGTO(RO) ,R3 : 

BIC #FCLR,R3 ; 

BNE Tinto} 3 

INC R : 
: MOV #1,R1 3 

ADD #0,R1 : 

ROL R1 : 

DEC RS : 

BNE MLOP : 

MOV RO. TEMP : 

CLR TEMP +1 : 





GET wey OF FORMAT IMAGE BLOCK 
LEAR FOR STORE 


sFOR 
3 SECTORS/TRACK 
3GET tinere OF FORMAT BUFFER TABLE 


TL H 
GET IMAGE BUFFER START ADDRESS 
3GET ed ADDRESS OF REVECTOR BUFFER 


SINIT POINTER 
:GET MAX BUFFER ADDRESS 
sFOR CLEAR 


STORE BEGINNING ADDRESS 
7CLEAR HIGH ed 

;POINT TO END ADDRESS 
POINT TO BEGINNING — 
SUBTRACT TO GET LENG 


GET LENGTH 
;DIVIDE BY 2 (LENGTH OF 1 ENTRY) 
7STORE AS MAX NUMBER 


POINT TO CHARACTERISTICS 
3GET RECOVERY LEVELS 
CLEAR 7 ORDER 


Y NUMBER 
; SHIFT By FOUR TO GET INTO LGW ORDER NIBBLE 


CLEAR HIGH ORDER J 


UNK 
E MORE BECAUSE OF WRONG INC 


; ON 

;STORE IT 

FOR ST 

POINT TO COMMON CHARACTERISTICS 
GET LONG TIMEOUT IN LOG2 
CLEAR ALL BUT TIMEOUT 

IF WOT ZERO THEN CONTINUE 
MAKE IT AT LEAST 1 

INIT COUNTER 

CLEAR CARRY 

SHIFT 

DECREMENT SHIFT COUNT 
CONTINUE TILL E 

FOR DIVIDE 

CLEAR HIGH WORD 
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W2NOR= 


KIRASLESELEALR 
a ee eh a a 


SoS8Ssss 


Mr 
So 


oO 
~ 
on 





#10. ,DDUMMY 
DUMMY +1 


UP SHORT TIMEOUT 


#CR,RO 
SHORTO(RO) ,R3 
#FCLR,R3 


R 
#1,R1 
1 


R3 
TILOP 
#10. oR3 
R1 


R3 
TILOP1 
R1,ST0 


#SCR,RO 
DATA(RO) ,DPREA 
#HIBYTE -DPREA 


R3 
#HIBYTE ,R3 
R3,HPREA 





FOR D BY 10 

2 CLEAR D 

sDIVIDE BY 10 (UDA i aes TIMEOUT) 
Hs GET V. TO USE AS L 

STORE 


UE 
FOR US LATER 
AT LEAST 1 


POINT TO COMM CHA 
7GET SHORT TIMEOUT WORD 


CLEAR WORD 
3FOR LOG CALCULATION 
INIT COUNT - 
ZCLEAR CARRY 
ROTATE (MULT BY 2) 

ILL DONE 
SHIFT COUNT FOR MILSEC CONVERSION 
2GET_NUMBER IN MILSECS 
260 LM DONE 
sSTORE IT 


UP HEADER AND DATA PREAMBLE LENGTHS 


:POINT TO CHARACTERISTICS BLK 
PREAMBLE 


:GET INTO LOW BYTE 
: CLEAR or HIGH BYTE GARBAGE 
STORE IT 


FOR NO ERROR 











UDAF 5S 


sssssse 


DONA NEWN $0 OONAUSWN HO OCONOUSWN— 
CSVSEVBRN 
NOUN 


Wr 


Sssssss 


z 
o 
w 
N 


ta ot ot 
RSscosoo 
ONSRARS 
VOOooo 
oOnNNNN 


SET UP STARTING ADDRESS BITS 


MOV 
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#SCR,RS 


STLBN(R3) RC 
#STCLR,RO 
RO,ST.LBN 


STRBNC(R3) RO 
#STCLR,RO 
RO,ST.RBN 


STXBN(R3) ,RO 
RO 


RO 
RO 


RO 
#STCLR,RO 
RO,ST.XBN 


STDBN(R3) ,RO 
RO 


RO 
RO 


RO 
#STCLR,RO 
RO,ST.DBN 


sPOINT TO SUBUNIT CHAR BLOCK 


GET THE WORD 
CLEAR THE REST 
;STORE IT 


3GET RBN WORD 
CLEAR THE REST 
sSTORE IT 

GET THE WORD 


GET INTO THE RIGHT NIBBLE 
sCLEAR THE REST 
;STORE IT 


GET THE WORD 


GET INTO THE RIGHT NIBBLE 
REST 


CLEAR THE 
sSTORE IT 
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1 : 
§ : CLEAR ECC THRESHOLD 
4 005246 104203 00151 : MOV #CR,R3 :POINT TO CHARACTERISTICS 
4 ooase 104633 00000. MOV ERRSYM(R3) ,R2 36 
6 005252 103 02 177400 BIC #HIBYTE ,R2 ZCLEAR THE THRESHOLD 
005254 100632 000002 MOV R2,ERRSYM(R3) :STORE IT BACK 
8 005256 RETURN 
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1 8 

$ : FIND SDI INTERCONNECT FOR DESIRED UNIT 

5 : 

& 005260 104205 001750 GETUNT: MOV #OMBUF ,R5 :POINT TO STARTUP INFO 

005262 114000 002164 CLR COUNT ‘FOR INTERCONNECT INIT 

8 005264 104200 000001 001412 MOV #1,UNIT SINIT INTERCONNECT 

9 005267 104302 001412 GOVER1: MOV UNIT, R2 'GET INTERCONNECT INTO R2 
10 005271 CALL  STATVL SANY DRIVE THERE 27? 

11 005273 BNE NOTHER [NOPE = TRY NEXT ONE 

i 005275 104203 001414 GOVER: MOV #CR.GST,R3 :FOR GET STATUS 

13 005277 104237 MOV (R3)+,RO :GETCOMMAND ADDRESS 

14 005300 104851 MOV (R3)+.R1 [GET COMMAND SIZE 

15 005301 104302 001412 MOV UNIT, R2 'GET INTERCONNECT 

16 005303 060004 XFC SEND TISSUE GET STATUS COMMAND 
17 005304 115001 TST R1 ‘SUCCESSFUL ? 

18 005305 BEQ GSKIP1 ‘YUP = SKIP PETRY 

19 005307 115400 001371 INC UN.ERI ; 

20 005311 106300 002165 001371 CMP RETRY,UN.ERI [DONE ALL RETIES ? 

21 005314 BMI NOTHER YUP 

22 005316 BR GOVER 
23 005320 114000 001371 GSKIP1: CLR UN.ERI ZFOR ERROR CLEAR 

24 005322 104231 MOV (R3)+,R1 :GET RECEIVE BUFFRE 

25 005323 104137 MOV (R3) ,RO [GET BUFFER LENGTH 

26 005324 060005 XFC RCV SRECEIVE SDI RESPONSE 
37 005325 115001 TST RI SSUCCESSFUL ? 

B 005326 BEQ GSKIP2 SYUP = SKIP RETRY 

29 005330 115400 002164 INC COUNT SINC ERROR COUNT 

30 005332 106300 002165 002164 CMP RETRY, COUNT [DONE ALL RETRIES ? 

31 005335 BMI NOTHER YUP 

32 005337 BR GOVER [TRY AGAIN 

33 005341 114000 002164 GSKIP2: CLR COUNT [FOR COUNT CLEAR 

005343 104204 001503 MOV #ST,RG [POINT TO STATUS BUFFER 

35 005345 104641 MOV UID(R4) RI [GET UNIT NUMBER FROM STATUS 
36 005347 103201 170000 BIC #HD.CLR.R1 [CLEAR GARBAGE 

37 005351 106301 001413 CMP UNNO, R1 [1S IT THE ONE ? 

38 005353 BMI NOTHER [NOT EVEN A POSSIBLE SUBUNIT 
39 005355 BNE GSKIP3 [NO = SEE IF A SUBUNIT 
40 005357 104202 000001 MOV #1,R2 [SET SUBUNIT MASK 

41 005361 BR GDONE SAND EXIT 
42 005565 104643 000000 GSKIP3: MOV MASK (R4) ,R3 'GET SUBUNIT MASK 

43 005365 103203 007777 BIC #L0,R3 [CLEAR GARBAGE 
44 005367 110703 SWAB 3 [GET INTO LOW BYTE 
45 005370 110603 ROR R3 [TO GET IN LOW NIBBLE 
46 005371 110603 ROR R3 [TO GET IN LOW NI 

47 005372 110603 ROR R3 :T0 GET IN LOW NIBBLE 
48 005373 110603 ROR R3 :TO GET IN LOW NIBBLE 
49 005374 114007 CLR RO [CLEAR COUNTER 

50 005375 102203 000002 BIT #B81T1,R3 SANYTHING THERE ? 

51 005377 BEQ GSKIP ‘NOPE = ONLY 1 

3 005401 115407 INC RO [YUP = INCREMENT COUNTER 
53 005402 102203 000004 BIT #B1T2,R3 SANYTHING HERE ? 

54 005404 BEQ GSKIP ‘NOPE = ONLY 

55 005406 115407 INC RO SINC OUNTER 

56 005407 102203 000010 BIT #B1T3,R3 TANYTHING HERE ? 

57 005411 BEO GSKIP NOPE 
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RS, ptr 


ERRMNT 





s¥ 
He 4 O UNIT NUMBER 

;GET RELATIVE OFFSET FROM GIVEN UNIT NUMBER 
IF GATIVE THEN NOT IN THE RANGE 


: RY 
sHAVE TO ROTATE 
MES TO DO A 
SWAP NIBBLE 
: SUBUNIT MASK 
Srore MASK IN SUBUNIT CHAR COMMAND 
T IN FOR CHANGE MODE COMMAND 


URN 

GET —— INTERCONNECT 
:SAVE BACK 

ESTORE 
SCLEAR ERROR COUNT 
ALL DONE ? 
NOPE - TRY i. ee 
sUNIT SEARCHI 


NG F 
NAL NON-EXISTANT UNIT 
ERROR RETURN 





} 
8 ee | 





SEQ 75 
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; 

4 005477 102200 

5 005502 

g 005504 104207 
005506 104677 

8 005510 102207 

9 005512 

10 005514 

11 005516 104201 

12 005520 


020000 001703 
001512 
000001 
100000 


000026 


ixss: 


NO576: 
CKERR: 


CHECK VALIDITY OF FORMAT MODE 


BIT 
8 


#MODE ,FLAG1 saat ot +4 WE WANT 

NOS76 :512 = DRIVES HANDL le IT 
#CR,RO ;POINT om CHARACTERISTICS 
SSBIT(RO),RO 7GET SSBIT WORD 

#SS,RO <ORIVE SS BIT 

CKERR ie ALLOWS 512 = ERROR 
#22.,R1 sERROR 22 


ERRMNT 2DIE 





UDAFS2 = UDA-52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 48 
INITIALIZATION OVERLAY (G1) 
1 : 
5 : INITIALIZATION ROUTINE 
5 005522 104302 001412 INITL: MOV UNIT ,R2 :SELECT UNIT 
6 005524 CALL _—sINITIT tINIT DRIVE 
7 009526 CALL  GETUNT 'GET THE SDI INTERCONNECT 
8 0055 CALL ONLIN BRING IT ONLINE 
9 005532 CALL  GSTATS :GET STATUS 
10 005534 CALL = CKSS * CHECK VALIDITY OF FORMAT MODE 
11 005536 CALL _—RECAL *RECALIB 
12 005540 CALL  CONINT iC OMPUTE “DISK CONSTANTS 
13 005542 RETURN SAND STO 


7 


SEQ 77 
UDAF52 = UDA-52 FORMATTER DMACR X04.01 23-AUG=-82 13:14:22 PAGE 49 
DBN/XBN FORMAT OVERLAY (F1) 
.SBTTL DBN/XBN FORMAT OVERLAY (F1) | 
4 : FORMAT DBN AND XBN AREAS 
: | 
2 005544 DMOVLY F1,START | 
10 004014 104200 000000 001636 MOV #F1,CUROVL OVERLAY #1 
11 004017 104200 000400 002171 MOV #SECSIO. SECS1Z ZMAKE SECTOR SIZE 512 FOR D/XBN | 
12 004022 101200 000010 001702 BIS #DBN, FLAG ‘SET DBN FORMAT | 
13 004025 CALL DXFORM :FORMAT DBN AREA | 
14 004027 104303 001776 MOV FCTREV,R3 SSTARTING FCT ENTRY COUNT | 
15 004031 107303 001722 SUB FCNT,RS STOTAL BAD IN DBN AREA 
16 004033 105303 002136 ADD ERRCNT,R3 [GET FINAL TOTAL 
17 004035 104030 002001 MOV R3,DBBAD ‘STORE IT FOR STATS | 
18 004037 114000 002136 CLR ERRCNT [FOR CLEAR 
19 004041 104300 001722 001776 MOV FCNT, FCTREV [FOR BAD BLOCK COUNT 
20 004044 103200 000010 001702 BIC #DBN,FLAG :D0 XBN AREA 
21 004047 CALL DXFORM [FORMAT XBN AREA | 
22 004051 104303 001776 MOV peeere as * STARTING FCT ENTRY COUNT | 
23 004053 107303 001722 SUB FCNT,R :T TAL BAD IN XBN AREA 
24 004055 105303 002136 ADD ERRCNT,R3 [GET FINAL TOTAL 
25 004057 104030 002002 MOV R3,XBBAD STORE i FOR STATS 
26 004061 114000 002136 CLR ERRCNT [FOR CLEAR | 
27 004063 104201 0 #F3,R1 ZFCT DLL OVERLA 
8 004065 CALL NEXT *BRING iN NEXT MOVERLAY 
30 004067 104207 001525 DXFORM: MOV #SCR,RO :POINT TO CHARACTERISTICS BLOCK | 
31 004071 102200 000010 001702 BIT #0BN, FLAG ‘DO DBN AREA ? 
32 004074 BEQ N =NO = DO XBN AREA | 
33 004076 104673 000022 MOV DBNCYL(RO) ,R3 :GET NUMBER OF CYLS TO FM 
34 004100 110703 SWAB RR :GET INTO LOW BYTE | 
35 004101 103203 177400 BIC #HIBYTE ,R3 ;CLEAR HI 
36 004103 104030 002143 MOV R3,CNTCYL UP COUNTER 
37 004195 102200 002000 001702 BIT #BSTGS, FLAG ‘DOING BEST GUESS ??? 
38 004110 BNE SKIP4 ‘YES = SKIP FCT SET UP 
39 004112 104200 000200 002163 MOV #128. ,PCNT [FOR PBN COUNT INIT 
40 004115 114000 001743 CLR FCTCNT ‘FOR INIT FCT READ 
41 004117 CALL  DXFCPG [READ IT IN 
42 004121 104290 010455 001709 MOV #PBNBUF , BADPBN [ADDR OF BAD PBN LIST | 
43 004124 104302 010473 001772 MOV PBNBUF ¢€512,FCNT 7GET COUNT OF USED ENTRIES 
44 004127 104300 010473 003,76 MOV PBNBUF +€512,FCTREV SSTORE IT FOR STAT COMPUTATION | 
45 004132 BEQ SKIP19 [IF ZERO = THEN NO ENTRIES 
46 004134 115400 091762 INC FCTCNT [START WITH SECOND FCT BLOCK | 
47 004136 CALL  DXFCPG SBRING IT IN 
48 004140 z BR SKIP4 ; SKIP NO ENTRY STUFF 
49 004142 101200 000002 001702 SkIP19: BIS #FCTEMT, FLAG :SET EMPTY FLAG | 
50 004145 104200 140000 0021¢5 SKIP4: MOV #HD.DBN,HD.CUR [GET SBN. HEADER CODE 
51 004150 CALL § NUMDBN [GE] DBN OF FIRST BLOCK ON LAST CYLINDER 
52 004152 BR SKIP1 [SKIP XBN SETUP | 
53 004154 104200 129000 002145 XBNIT: MOV #HD.XBN [GET XBN HEADER CODE 
54 004157 104670 00021 007143 MOV XONCYECROD: CTCL GET CYLINDERS IN XBN AREA 
55 004162 i CALL § NUMXBN [GET XBN OF FIRST BLOCK ON LAST XBN CYL 
56 004164 104140 001574 SKIP1: MOV Ra) ,HOLDBN 3L0 ORDER FIRST BLOCK NUM TO DO 
57 004166 104240 001566 MOV (R4)+, CURBN gAND MAKE IT CURRENT NUMBER 





cee ce eee 


’ 


58 004170 
59 004172 
60 004174 
61 004176 
62 004201 
63 004204 
64 004207 
65 004211 
66 004214 
67 004217 
68 004222 
69 004225 
70 004227 
71 006230 
72 004232 
73 004236 
74 004236 
75 004240 
76 004242 
77 004243 
78 004245 
79 004247 
80 004251 
004253 
82 004255 
83 004257 
84 004261 
85 004263 
86 004265 
87 004266 
88 004267 
89 004271 
90 004273 
91 004276 
92 0043 
93 004302 
9% 004304 
95 004306 
96 004310 
97 004312 
98 004314 
99 004316 
100 004320 
101 004322 
102 004324 
103 004327 
104 004332 
105 004334 
106 004336 
107 004340 
108 004342 
109 004344 
110 004346 
111 004347 
112 006351 
113 004353 
114 004355 





104140 
104140 
207 


seszeseee 
WWIWEWNIO 
SSS8SS8S88s 


115400 
106300 


114000 
117400 
104204 
104203 


1 
015763 


001371 
002165 


001371 
001565 
001576 
001606 


001576 


002146 
002147 


002143 


001604 
002151 


002143 


001371 


SKIP6: 


N 6 


UDAF52 = UDA-52 + ty eS _— X04.01 23-AUG-82 13:14:22 PAGE 49-1 
DBN/XBN FORMAT OVERLAY (F1 


(R4) ,HOLDBN+1 
seer’ » CURBN+1 


GRPCYL (RO) — 
#HIBYTE ,GRPCNT 
GRPCNT, CURGRP 
CURGRP 

CYLNUM, ISEEK+1 
CYLNUM+1, gi SEER CE 


CURGRP, ISEEK+ 
#SS,ISEEK+2 
SEEK 


RO 
TRKGAP(RO) R3 
HIBYTE,R3_ 
RS. TRKCNT 

R3 


R3,CURTRK 
#G7,R1 
PA 


C 

FHOLDEN, R4 
#SECTRK.R3 
DSUB 


HOLOBN , CURBN 
HOLDBN#1, -CURBN+1 


U E 
#CYLNUM,R4 
#ONE ,R3 
DSUB 
CNTCYL 


sHI ORDER A i 2 ot NUM TO DO 
D MAKE UR NUMBER 


3 AN IT CURRENT 

POINT TO CHARACTERISTICS BLK 
LOAD GROUPS/CYL 
sCLEAR OUT HIGH” GARBAGE 
; GROUP NUMBER BY 


3 DECREMENTING 

:GET LO ORDER WORD OF CYLINDER NUMBER 
LOAD HIGH ORDER WORD OF CYL NUM 
;LOAD GROUP 


NUMBER 
MAKE SURE IT IS | 512 — 
SAY ERRO sw peel 


UIT 
:POINT TO CHARACTERISTICS BLOCK 
S/GROUP 


4 SETUP OVERLAY 


{DATA PREAMBLE LENGTH 
;HEADER PREAMBLE LENGTH 
:POINT TO beomat IMAGE START POINT 


R SIZE _ IN WORDS 
SRECIRCULATION POINTER 
FORMAT THE TRACK 
TANY ERRORS ? 
7NO = DO CHECK PASS 
2 INCREMENT IT 


DONE ALL RETRIES ? 
sYUP = ERROR 


T 

{DRIV VE CLEAR 
:RE-SEEK AND GROUP SELECT 
:RETRY FORMAT 

STORE 
:D0 CHECK PASS 
;DECREMENT IT 
;PREPARE FOR BEGINNING BLOCK DECREMENT 
sDECREMENT BY SECTORS/TRACK 
D0 DECREMENT 
2LO ORDER NEW BLOCK NUMBER 
HI ORDER at BLOCK NUMBER 
;DECREMENT IT 


UPDATE PROGRESS INDICATOR 
sPREPARE FOR CYL NUM DECREMENT 
:DECRERENT BY ONE 


UBTRACT 
ARE WE DONE ? 





eee eas tF — X04.01 23-AUG-82 13:14:22 PA 


x 
Nm 


uw 
~N 


Seeeeere 
NOSSO 


NPN a 
NCO OaOnNOu 


eT) 
Ww 


“N 
= 


or. ?.NO = DO NEXT CYLINDER 


YES = ALL 
GET XFC FAILURE CODE 
sSET FORMAT ERROR 


CYLINDER WHICH FAILED ON 
:SEEK ERROR 
ERROR RETURN 


UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 50 
DBN/XBN FORMAT OVERLAY (F1) 


[PAGE IN NEW FCT BLOCK 


DXFCPG: PUSH RO 
MOV #G2,R1 :DLL OVERLAY 
CALL _—~PAGE ZEXECUTE OVERLAY 
MOV #128. , COUNT : N 
MOV #PBNBUF , BADPBN [FOR POINTER RESET 
R SRESTORE RO 


POP 
RETURN sRETUR 


COMPUTE NUMBER OF F 
RO => CHARACTERISTI 


IRST a ON LAST DBN TRACK 
CS BLOC 


4 
oa 
“i 
w 


_— oR3 :GET NUMBER OF CYLINDERS IN DBN AREA 
; O LOW BYTE 


#HIBYTE,R3 
R3, TEMP 

TEAP+T 

#TEM : AREA 

psecrer. R3 POI NUM OF SECTORS/CYLINDER 

D {MULTIPLY TO GET SECTORS BEFORE LAST CYL 
1(R4),R1 :GET HIGH 


H OR 
ST.OBN,R1 [ADD HIGH ORDER STARTING DBN 
R1,1(R4) SSTORE BACK 

#SECTRK,R3 [WANT FIRST ON OF LAST TRACK 
D :SUB TO GET IT 


onn 
Woo 


R 


MEWN —OCONOULWN $C OBNOUES Wh 
mr 
So 


PROPOPOPINURD 2 tt ot ot os es 


& 
BVO Sak 
S SESE 


rs 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


i=] 

wi 

Ww 

So 
Wee Ww 


es 


CALL 
RETURN 


OMPUTE NUMBER OF FIRST XBN ON LAST XBN TRACK 
RO => CHARACTERISTICS BLOCK 


5 
So 
So 


001410 : MO XBNCYL (RO) , TEMP sGET NUMBER OF CYLINDERS IN XBN AREA 
TEMP+1 CLEAR FOR STORE 
#TEMP RS ;POINT TO TEMP AREA 
#SECTCY,R3 POINT TO oe Tons cyt eee 
MULTIPLY TO GET SECTORS IN XBN AREA 
3GET HIGH ORDER 
ADD HIGH ORDER STARTING XBN 
STORE BACK 


E 
;WANT XBN OF er TRACK 
SUB TO GET IT 


S RPre 
sss 
sss 


3 


Batts eb ed ad 


RSS, 
SESE Ww 
sss 


CALL 
RETURN 
CHECK PASS 


AVE PTR TO Cnnns TenistiCs BLK 
OR ERROR COUNT RESET 
chen RE=FORMAT FLAG 


;NO - “0 EXTENSIVE READ 


001711 


:$ 
3F 
1 C ERFLAG 
000600 001702 #MANU+DLL FLAG :F 
BE CSKIP 





UDAFS2 = 
DBN/ 


XBN FORMAT OVERLAY 


58 ooeeie 
59 00451 
60 004516 
61 004521 
os 004523 
63 004526 
64 004531 
65 0045 
66 004536 
67 004540 
68 004541 
69 004543 
70 004546 
71 004550 
Le 004552 
73 004554 
74 004556 
75 004560 
76 004562 
77 004564 
78 004566 
79 004570 
80 004572 
81 004574 
82 004576 
83 004600 
84 004602 
85 004604 
86 004606 
87 004607 
88 004610 
89 004612 
90 004614 
91 004616 
92 Ooeess 
93 0046 ; 
94 00462 
95 004624 
96 004626 
44 004626 


S38 
FEES 


LEER 


—— 
NVI NI NI 


333 


3 


104 


2 RP FF 
S33 S33 2 


& 
S38 


gece 


SLSLSSESE BRE 


Oe ek ed od od 
oonon 


RR 


Mr 
NRMUWINWWWNIIII OU 


+: 


104207 


00 
002141 00 


000001 00 
000005 
000003 002 
000024 B05 
002141 00 
001412 
002171 


1 
1 
1 
1 
1 
1 


001374 


013022 
000003 
100000 


40 
41 
42 
40 
44 
42 


002137 


AGAIN: 


READ1: 


RRERR: 


NOERR: 


HERE: 





UDA=52 m_aae K04.01 23-AUG-82 13:14:22 PAGE 50-1 


#26. Nt 


1 
R2 


eo) 

we 
ce 
52332 

o 

= 

io 


R3,RW.DUM 
#<BIT15!RDBLK>,RO 


#ROCMD,R 
R3,RW.STATCRO) 
READ 


RRERR 
RDBLK+RW.ER1,RO 
#ECCF RO 


#NUM,R 
CMPDAT 
R1 
NOERR 


+ A | ta 


RB. IMCRS), 
#BD,R4 
NOERR 
#BD,R4 

R4, RB. IM(RS) 
ERR 
RTYCNT 
#RDLEN,RS 
SECCNT 
AGAIN 
CSkIP] 

ERR 


CDONE 
#CMDBUF .R4 
RB. IM(R4) RB 
#BD,R3 


sSET a4 FOR STORE 
SA VE FOR LATER RESET 


D 
AVE FOR LATER RESET 
3SET IN PORT NUMBER 
SYNCH a Ht SECTOR/INDEX PULSE 
7SECTOR SIZE IN WORDS 
;LOAD_SECTORS/TRACK 
POINT TO 


; COMMAND BUFFER 
POINT TO READ COMMAND BLOCK 


: COMMAND 

2YES = SKIP CHECKS 

sELSE STORE IT 
GET LOW RODER BLOCK NUMBER 
STORE IN C 

LOAD HIGH ORDER BLOCK NUMBER 
2 STOR BLOCK 


C INC 

GET BUFFER POINTER 
STORE IN COMMAND BLOCK 
:POIN TER TO ne SDI BLOCK 

sSTORE IT IN READ BLOCK 

E_ SURE POINTING AT BLOCK 

SRESET STATUS POINTER 

TORE IT BACK 


zYES = UH OH 
GET ECC STATUS WORD 
SANY ECC oa & 
K AS BAD FOR NOW 
:POINT TO COMPARE BLOCK 
D0 DATA COMPARE 


ANY ERROR IN COMPARE ? 
NOPE = CONTINUE LOOP 


CLEAR ECC ERROR BIT 
27 
7¥ ON’ T COUNT AGAIN 
ZFLAG “AS BAD 
E BACK 
; INCREMENT ERROR COUNT 
2 INC COUN 
POINT TO NEXT READ CMD BLOCK 
: DECREMENT COUNTER 
SECTOR 
:DECREMENT COUNTER 
NO - REPEAT TRACK READ AND COMPARE 
zANY ERRORS ? 
NO = ALL DONE CHECK arene 


POINT TO COMMAND BUFF 
GET IMAGE POINTER 





CSKIP7 3NO = SKIP IT . 


no 
—“ 
@ 
m 
o 


g Ff 
SEQ 82 

UDAF52 = UDA-52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 50-2 . 
DBN/XBN FORMAT OVERLAY (F1) . 

115 

116 00467 PUSH RG SAVE POINTER TO COMMAND BLOCK~ 

117 004676 104644 000003 MOV RB. IM(R4) RS [GET POINTER TO IMAGE ENTRY ~ 

118 004700 104643 90000¢ MOV FT.HICR4).R3 iE! AiiGn ORDER . 

119 004702 105203 00777 BIC #L0,R3 R OU} ALL Bur HEADER : 

120 004704 106303 002145 CMP HD.CUR,R3 "GOOD X/D BN’ 

121 004706 BEQ READX ‘ves s ¢ HECK IT 

122 004710 POP RG SELSE RESTORE COMMAND POINTER 

1 004711 BR CSKIP7 AND CHECK NEXT ENTRY 

124 004713 104302 001412 READX: MOV UNIT,R2 :GET PORT NUMBER 

125 004715 06001 XFC SIP “WAIT PULSE 

126 004716 104302 002171 MOV SECSIZ,R2 ZSECTOR SIZE IN WORDS 

127 004720 104207 001373 MOV #RDBLK,RO SPREPARE FOR READ SECTORS 

128 004722 104203 001400 MOV #HSLIM-1,R3 [POINTER TO DUMMY SDI BLOCK 

129 004724 100673 000006 MOV R3,RW.DUM(RO) ‘STORE IN COMMAND BLOCK 

130 004726 104643 000001 MOV FT.LOW(R4) ,R3 [LO ORDER BLOCK R 

131 004730 100673 000003 MOV R3,RW.LOW(RO) SSTORE IN READ COMD BLOCK 

132 004732 104643 000002 MOV FT.HICR4) RS SHI ORDER BLOCK AND C 

133 004734 100673 000004 MOV R3,RW.HI (RO) [STORE IN READ CMD BLOCK 

134 004736 104203 010000 MOV #ROBUF ,R3 3LOAD ADDRESS OF DATA BUFFER 

135 004740 100673 000002 MOV R3,RW.BUF (RO) IN COMMAND BUFFER 

136 004742 104203 013400 MOV #RUCHD ,R3 [LOAD SDI READ COMMAND 

137 004744 104301 001565 MOV CURTRK,RI1 GET CURRENT HEAD NUMBER IN R1 

138 004746 101013 BIS R1,R3 [SET IT IN COMMAND 

139 004747 100673 000005 MOV R3,RW.CMD(RO) :STORE BACK 

140 004751 104207 101373 READ2: MOV AzéI Tis" ROBLK>.RO SMAKE SURE POINTING AT BLOCK 

141 eg tH 10ne08 MOV #ROCMD,R3 “MARK K AS Y REQUEST 

142 004755 1001 MOV R3, (ROS SSTORE IN CMD BLOCK 

143 004756 104302 002171 MOV SECSIZ,R2 SSECTOR SIZE IN WORDS 

144 004760 060002 KFC READ SREAD 1 SEC TOR 

145 004761 115001 TST R1 ZANY ERROR IN READ ? 

146 004762 BNE ER1 YES = CONSIDER BAD 

147 004784 104673 000001 MOV RW.ERTCRO) 23 “LOAD Ecc ERROR INDICATOR FOR TEST 

148 004766 102203 010000 BIT #ECCE RS TERROR ? 

149 004770 BEQ CSKIP [NO = CHECK EDC 

150 004772 103200 010000 001374 BIC #ECCE ,ROBLK+RW.ER1 CLEAR ECC ERROR BIT 

151 004775 CALL ECCCK TELSE FIND HOW MANY SYMBOLS IN ERROR 

152 004777 115001 TST RI :WITHIN 

153 005000 BMI ER1 :NOPE - CONSIDER {BAD 

154 005002 106300 002131 010000 CSKIP6: CMP DWRD ,ROBUF SFIRST WORD O.K 2? 

155 005005 BNE ER1 [NOPE = BAR 

156 005007 104202 010000 MOV #RDBUF ,R2 [POINT TO BUFFER 

157 005011 104207 000400 MOV #SECS16,RO SSECTOR SIZE IN WORDS 

158 005013 CALL EDC [COMPUTE EDC = RETURNED IN R3 

159 005015 104205 010000 MOV #RDBUF RS ‘POINT TO BUFFER 

160 005017 106653 000400 CMP RW.EDC(R5) ,R3 [EDC O.K. ? 

161 005021 BEQ OK [NO ERROR 

169 005023 ER1: 

163 005023 104643 00002 MOV FT.HI(R4).R3 :GET HI ORDER BLOCK NUM AND HDR CODE 

164 005025 103203 170000 BIC aNd. LR,RS [CLEAR THE HEADER 

165 005027 101203 110000 BIS HD.BAD,R3 [MARK AS 

166 005031 100643 2 MOV + FT.HI(R4) :STORE BACK IN IMAGE 

167 005033 115400 001 04 INC ERFLAG [SET RE-FORMAT FLA 

168 005035 115400 0021 INC ERRENT [UP COUNTER OF BAD B 

169 005037 BR CSKIP3 [NO NEED TO RE-READ ANY MORE THIS SECTOR 

170 005041 117400 002141 Ok: DEC N :DECREMENT COUNTER - 

171 005043 BNE READX [NO = RE-READ SECTOR IN ERROR 










F 
UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 50-3 
DBN/ ORMAT OVE 


XBN F T RLAY (F1) 

ire 005045 104300 002142 002141 CSKIP3: MOV NN1,N1 GET SAVED VALUE 

173 005050 117400 001711 DEC ERR sDECREMENT IT 

174 003036 POP R4 sRESTORE COMMAND POINTER 
175 005053 105204 CSKIP7: ADD #ROLEN,R4 sPOINT TO NEXT ENTRY 

176 005055 115000 001711 TST ERR sALL DONE ERROR SECTORS 

177 005057 BNE HERE NO = DO NEXT SECTOR 

178 005661 115000 001704 TST ERFLAG WERE THERE ANY BAD SECTORS FOUND 
179 005063 BEQ CDONE ;NOPE - DONE 

180 005065 104304 002006 OVER2: MOV DPREA,R4 DATA PREAMBLE LENGTH 

181 005067 104303 002005 MOV HPREA,R3 ;HEADER PREAMBLE LENGTH 

182 005071 104307 002004 MOV IMSTAR,RO POINT TO TRACK IMAGE START POINT 
183 005073 104301 001565 MOV edb BY ;CURRENT TRACK NUMBER 

184 005075 104302 o0¢ 1 MOV SECSIZ,R2 sSECTOR SIZE _ IN WORDS 

185 005077 104205 015763 MOV caanat’ oR5 :RECIRCULATION ADDRESS 

186 005101 060001 XFC FORM sRE-F 

187 oneios 115001 TST R1 ZANY PROBLEMS ?? 

188 00510 BEQ OVER1 3NO aeheut CHECK PASS 

189 005105 115400 001371 INC UN.ERI INCREMENT IT 

190 005107 106300 002165 001371 CMP RETRY ,UN.ERI sDONE ALL -- Nana ? 

191 005112 BMI FERR YUP = 

136 005114 CALL INITPT | sREINGT 

193 005116 CALL CLEAR ;DRIVE CLEAR 

194 005120 CALL SEEK sRE-SEEK AND GROUP SELECT 
195 005122 BR OVER2 ;RETRY FORMAT 

196 005124 114000 001371 OVER1: CLR UN.ERI 7CLEAR RETRY og 

197 005126 R DXCH RECYCLE CHECK PASS 

138 O031 30 CDONE: POP RO sRESTORE CHARACTERISTICS PTR 
199 005131 RETURN 
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DBN/XBN FORMAT OVERLAY (F1) 
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CONSTRUCT THE READ COMMAND TABLE 


MOV SECTRK,SECCNT ZINIT COUNTER 

MOV #CMDBUF ,RO + COMMAND BUFF R 

MOV aimack. Re ‘POINT TO TRACK IMAGE 

MOV SKPCNT.R3 [GET STARTING OFFSET (TUNED) 

ADD R3,R5 :POINT 0, FIRST ENT 

MOV RS STARIT ;MARK K STARTING ABDRESS 

MOV 2(R5) ,R3 ZSET UP FOR HSR CODE COMPARE 

BIC #LO,RS ZISOLATE HI 4 BITS(HOR CODE) 

CMP #HD.XBN,R3 :GOOD XBN ? 

BEQ FKIP2 3YES - MARK AS GOOD TO CHECK 

CMP #4 -DBN,R3 

BEQ FKIP2 tYES - BARK AS GOOD TO CHECK 

CLR R3 [CLEAR FOR ST 

MOV R3,RB.CMD(RO) SSTORE AS BAD SECTOR FLAG 

ADD #ROLEN,RO :POINT PAST BLOCK 

BR FKIP1 ‘SKIP GOOD MARK 

MOV 1(R5) R3 [LO ORDER BLOCK NUMBER 

MOV R3, (RO) ZSTORE IN READ COMD BLOCK 

MOV 2¢R5) ,R3 SHI ORDER BLOCK NUM AND C 

MOV R3, (RO) + SSTORE IN READ CMD BLOCK 

MOV #RUCMD R3 [LOAD SDI READ C 

BIS CURTRK R3 [SET IN CURRENT TRACK NUMBER 

MOV R3, (ROS+ [STORE IN BLO 

MOV R5.(RO)+ SSAVE PTR TO IMAGE BLK ENTRY 

ADD TBLK RS sADD TO GET NEXT SECT 

CMP E IMAGE ,RS 7SEE IF HAVE TO LOOP BACK TO TOP 

BEQ REDO SNEED TO RESET 

BPL KP1 [NO NEED = JUST CONTINUE 

SUB EIMAGE. RS : SUBTRACT 19 GET LOOP AMOUNT 

ADD # IMAGE .R5 SAND ADD OFFSET 

BR FKP1 [SKIP ZERO CONDITION 

MOV # IMAGE ,RS iIF ZERO SIMPLY MOVE TO FRONT 

CMP STARIT. RS 1 BEGINNING ADDRESS ? 

BNE FKIP10- Nos UST CONTINUE 

ADD #IMLEN NARS TELSE POINT TO NEXT ENT 

MOV R5, STA RIT [MAKE IT NEW Ww STARTING ADDRESS 
: DEC SECC :DECREMENT 

BN REY [NO = DO NEXT SECTOR 








UDAF52 = UDA=S2 FORMATTER DMACR_X04.01 
DBN/XBN TRACK FORMAT OVERLAY (G7) 


4 
g 
7? 
8 
9 
10 005244 
11 004014 
12 004017 
13 004022 
14 004024 
15 004027 
16 004031 
17 004034 
18 004036 
19 004040 
20 004042 
21 004044 
22 004046 
23 004047 
24 004051 
25 004052 
26 004054 
$f 0040 
8 004 
+4 004061 
004 
31 004070 
32 00407 
3 004074 
004076 


3 


SRREREERREREEREEREEREES 
KUSVANSARVSESAL 


WU & & 


AfsNVOUWOS 


MAMAN ARE SERRE PW 


Vw 
SLRARSRSE 
otecettus 
Mm=—Ooowr 
WWWWWNA 


000047 
007606 
01576 

000600 


000010 


011132 
001566 
001567 
170000 
002145 


002137 
001525 
0000 


001636 
002137 
001702 
001702 


001403 


001403 
001403 
001410 


23-AUG-82 13:14:22 PAGE 52 


DXTRK: 


TKIP1: 
TKIP2: 


SKIPS: 


TKIP8: 


TKIP9: 


ee = 


-SBTTL OBN/XBN TRACK FORMAT OVERLAY (G7) 


SET UP TRACK FORMAT 


G7, START 
#G7, CUROVL 
SECTRK, SECCNT 
#IMAGE,R 
#MANUSOLL, FLAG 
#DBN, FLAG 
DPBN 
TKIP2 
XPBN 
#GDBLK ,R3 
R3,(R55+ 
UR 


#SCR_R3 
OFFSI2(RS) .R2 


#HIBYTE ,R2 
aes: 


EMP 
CURGRP ,DDUMMY 
DDUMMY +1 


#TEMP RS 
#DDUMAY ,R4 


DMUL 

$e 5 gk Seay 
SECTRK ,DDUMMY 
KIP8 

#IMLEN, TEMP 
TEMP+1 

#TEMP,RS 

(R4) ,R3 


GET OVERLAY INDICATOR 
T INTO R3 


BN AREA 

COMPUTE PBN 4k i— DBN 
7SKIP XBN sags oop 

;COMPUTE PBN FOR STARTING XBN 
:POINT R3_AT GOOD DATA BLOCK 


2 AND 
; INCREMENT 


a GROUP OFF 


2NO - SKIP CALCULATIONS 
21S GROUP ZERO ??? 

YES = NO OFFSET. 

sSTORE IT 

2FOR STORE 

3GET CURRENT GROUP 
sCLEAR HIGH WORD 


SEQ 85 


3FOR MUL 

:DITTO 

MULTIPLY TO GET ert as THIS GROUP 
s1S TOTAL OFFSET MORE THAN NUMBER OF SECTORS ? 
sNO ~ ALL IS FI 

zYES = SUBTRACT TILL IT IS 

2 CHECK AGAIN 

3GET LENGTH OF IMAGE BLOCK 

sFOR STORE 

3FOR MULT 

:GET LENGTH TO OFFSET 

3GET RESULT 
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$8 004157 104304 001714 

59 004161 1070 

60 004162 104040 002004 

61 004164 192200 002002 001702 

6¢ 004167 

63 004171 104300 001606 002137 

64 004174 104302 001706 

65 006176 104121 

66 004177 106010 001563 

67 006201 

68 004203 104621 000001 

69 004205 103201 170000 

70 004207 106010 001564 

71 006211 

72 004213 117400 002164 

73 006215 117400 001722 

24 006217 

75 004221 101200 000002 001702 

76 004226 104643 000002 

77 004226 103203 170000 

78 004230 101203 110000 

79 004232 100643 000002 

80 004234 105200 000002 001706 

81 004237 115000 002164 

82 004241 

83 004243 115400 001743 

84 004048 

85 004247 105204 000003 

86 004251 001714 

87 004253 

88 006255 104204 015763 

89 004257 

90 004265 117400 002137 

91 004267 

93 004271 106304 002004 
004273 104303 001714 

95 006275 107203 000003 

96 004277 106043 

97 004300 

98 006502 104135 

99 004303 101205 040000 

100 004305 100135 

101 004306 

102 004310 101200 040000 002004 

103 004313 104143 

104 064514 101203 100000 

105 004316 100143 

1€6 004317 


TKIPS: 


TKIP12: 


TKIP?: 


TKIP4: 


TKIP11: 


TKIP3: 


TKIP14: 
TKIP13: 


E IMAGE ,R4 


RG. IMSTAR 
#BSTGS+FCTEMT, FLAG 


K 
SECTRK,SECCNT 
BADPBN,R2 

(R2) Ri 
Ri, CURPBN 
TKIP 


#HD.CLR,R1 
RI CURPENS1 


TKIP? 
#FCTERT FLAG 
(R4)_R 
sit Ce 


TKIF12 


IMSTAR ,R4 
EIMAGE .R3 
arn 2R3 


a#ReCiR RS 
(R35 
rete 13 
#RECIR, IMSTAR 
(RG) RS 
mast R3 


7 


3GET ADDRESS OF END OF IMAGE 
ser Batt TO GET STARTING LOCATION 


ifs FCT AVAILABLE AND NON-EMPTY ? 
NO = CONSIDER GOOD 

RESET SECTOR COUNT 

;P0 TO PBN 


2POINT 

GET LOW 

sARE THEY EQUAL ? 

3NO = SKIP REST OF COMPARE 


sCLEAR HEADER FOR COMPARE 


NO = MARK AS GOOD 
DEC RERENT IT 
4 ae 4 “—"heo- 


;$ 

sHI ORDER BLOCK NUM AND HDR CODE 
CLEAR THE HEADER CODE 

sSET 7O BAD HE 


; O NEXT BAD BLOCK 
3 DONE WITH THIS FCT BLOCK ? 

F NOT ao SKIP 
GET NEXT BLOCK NUMBER 
ELSE PAGE IN NEW FCT BLOCK 
:POINT TON NEXT IMAGE ENTRY 


: Bry ON 

sPOINT TO START 

Zs INCREMENT CURRENT PBN COUNTER 
sDECREMENT SECTOR COUNTER 
sCONTINUE TILL DONE ALL SECTORS 


3POINT . FIRST TO FORMAT ENTRY 
3GET at Ss 

;POINT Le FLAG 5oF LAST ENTRY 
sFIRST = LAST ? 

1 wy SPECIAL STUFF 

sSET RECIRCULATION FLAG 

;STORE IT BACK 

: SKIP Yio oie TO UDA 


GNAL 
‘STORE IT BACK 


——_ --—_—__——_—__ —_—__ ___ ___ . -_ SL. ee 
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4 

é 

8 0043S. 
9 004324 
10 OOe es! 
11 004331 
12 004333 
13 004335 
14 004337 
15 004341 
16 004343 
17 004345 
18 004347 
19 004351 
20 004353 
21 004355 
22 
23 

24 

25 

26 

$f 

8 

29 

30 

31 004357 
32 004362 
33 004365 
34 004367 
35 004371 
36 004373 
37 004375 
38 004377 
39 004401 
40 004403 


DEP e Se Se Se Se Be Ge Ge Se 





COMPUTE PBN FROM GIVEN 
RO => CHARACTERISTIC 


XBNSEC , TEMP 


XBNSEC#+1, TEMP+1 
#TEMP RG 


#LBNLBN,R3 
#RBNLBN,R3 
#CURBN,R3 
DAD 


(R4) , CURPBN 
R1,CURPBN+1 


COMPUTE PBN FROM GIVEN XBN 
RO ~> CHARACTERISTICS BLOCK 


LBNLBN, TEMP 


LENLBN+1, TEMP+1 
#TEMP, RG 

#RBNLEN, oR3 
+) oR3 


R1,CURPBN¢1 





DBN 
S$ BLOCK 


:GET NUMBER OF SECTORS IN XBN AREA 
GET HI ORDER 

SPOINT R4 AT TEMP AREA 

POINT AT NUM OF LBN'S IN LON AREA 


;ADD 

POINT TO NUM OF RBN‘S IN LBN AREA 

ZADD TO. GET SECTORS IN LBN + XBN AREA 
POINT TO CURRENT BLOCK NUMBER (DBN) 
GET R RELATIVE PBN 


HIGH ORDER 
;SUBTRACT HIGH ORDER STARTING DBN 
;GET LO ORDER PBN 
STORE HIGH ORDER 


:GET NUMBER OF LBN'S IN LBN AREA 
3GET HIGH ORDER 

:POIN ~| R4 TO TEMP AREA 

POINT R3_AT_RBN'S IN LON AREA 
ADD TO rt TOTAL io Bh. IN LBN AREA 
:POINT R3 AT ie BLOCK NUMBER 
ADD TO GET RELATIV 

;GET HIGH ORDER 

;SUBTRACT HIGH ORDER STARTING XBN 
GET LO ORDER OF PBN 

7SAVE HIGH ORDER 


SEQ 87 





SEQ 88 | 
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1 3 

é [PAGE IN NEW FCT BLOCK 

4 004411 DXFCP1: PUSHA 

§ 004417 104201 000033 MOV #62,R1 :DLL OVERLAY 

6 004421 CALL PAGE SEXECUTE OVERLAY 
004423 104200 000200 007164 MOV #128. , COUNT ZFOR IN 

iy 004426 104200 010455 001706 MOV #PBNBUF , BADPBN [FOR POINTER RESET 

9 004431 POPA 

10 064/37 RETURN RETURN 


ee 
mt . 
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1 .SBTTL LBN FORMATTING OVERLAY (F2) 
§ ; LEN FORMATTING 

3 004441 DMOVLY F2,START 

? 

8 004014 104200 000003 001636 LFORM: MOV #F2,CUROVL ZOVERLAY #2 

9 004017 102200 000001 001702 BIT #FCTAVL, FLAG :FCT AVAILAABLE ? 

10 004022 BEQ XSKIP1 <NO = SKIP SET UP 

11 004024 104201 000036 MOV #G3,R1 [OVERLAY TO GET RIGHT FCT BLOCK 
i 004026 CALL _—— PAGE TEXECUTE IT 

13 004030 104207 001525 XSKIP1: MOV #SCR,RO POINT TO CHARACTERISTICS BLOCK 
14 004032 104300 001626 001604 MOV LBNCYL,CYLNUM [GET LO ORDER CYLINDER i “NT 

15 004035 104300 001626 002143 MOV LBNCYL,CNTCYL [MAKE LO ORDER COUNT 

16 004040 104300 001627 001605 MOV LBNCYL*1,CYLNUM+1 [GET HIGH ORDER 

17 004043 104300 001627 002144 MOV LBNCYL*#1,CNTCYL#1 SSTORE IT 

18 004046 103200 170000 002144 BIC #HD.CLR,CNTCYL#1 :CLEAR STARTING CYLINDER BITS 
19 004051 104204 001604 MOV #CYLNUM,R4 ;SUBTRACT TO GET CYLINDER NUMBER 
20 004053 104203 002151 MOV #ONE ,R3 21 = BECAUSE START AT 0 

21 004055 CALL DSUB [D0 SUBTRACT 
22 004057 104300 002160 001720 MOV TOTRCT,RCTTOT [GET TOTAL RCT LBN'S 

23 004062 104201 000052 MOV #G8,R1 [POINT TO OVERLAY 

24 004064 CALL _—~PAGE :COMPUTE VARIOUS CONSTANTS 

25 004066 104207 001525 XSLEEK: MOV #SCR,RO' :POINT TO CHARACTERISTICS 

26 004070 104673 MOV GRPCYL (RO) ,R3 [GET GROUPS/CYLINDER 

7 004072 105203 1774 BIC #HIBYTE, *CLEAR OUT GARBAGE 

8 004074 104030 00214 MOV R3,GRPCNT [USE AS COUNTER 
29 004076 104030 002146 MOV R3,CURGRP :GROUP NUMBER 

30 004100 117400 002146 DEC CURGRP :DECREMENT TO GET ACTUAL NUMBER 
31 004102 104300 001604 001551 XSLEK2: MOV CYLNUM, ISEEK+1 :GET CURRENT CYLINDER NUMBER 

32 004105 104300 00 001552 MOV CYLNUM+1, ISEEK+2 [GET HIGH ORDER 

33 004110 104300 002146 001553 MOV CURGRP, ISEEK+3 [LOAD GROUP NUMBER 

34 004113 102200 001703 BIT #MODE ,FLAG1 ; MODE 

35 004116 BNE 1$ [IF SET THEN 576 

36 004120 103200 100000 001552 BIC #SS, ISEEK+2 [SET 512 MODE SEEK 

37 004123 BR 23 :SKIP 576 SET 

38 004125 101200 100000 001552 18: BIS #SS, ISEEK+2 [SET 576 MODE SEEK 

39 004130 2$: CALL SEEK [DO THE SEEK 
40 004132 115001 TST R1 SANY ERROR ? 
41 004133 BMI SEEKER [YUP = CUT OUT 
42 004135 104207 001525 MOV #SCR,RO :POINT TO CHARACTERISTICS 
43 004137 104673 000003 MOV TRKGRP(RO) ,R3 :GET TRACKS/GROUP 
44 004141 103203 177400 BIC #HIBYTE ,R3 [CLEAR OUT GAR 
45 004143 104030 002150 MOV R3, TRKCNT MAK 
46 004145 117403 DEC R ‘WANT LAST TRACK NUMBER 
47 004146 104030 001565 MOV R3, CURTRK :MAKE CURRENT TRACK 0 
48 004150 104201 000025 XSKIP3: MOV #F8R1 ‘TRACK SET UP OVERLAY 
49 004152 ALL PAG [SET UP TRACK FORMAT 

50 004154 104304 002006 XSKIP2: MOV DPREA,R4 [GET DATA PREAMBLE LENGTH 

51 004156 104303 002005 MOV HPREA.R3 [GET HEADER PREAMBLE LENGTH 

52 004160 104307 002004 MOV IMSTAR,RO :POINT TO TRACK IMAGE START POINT 
53 004162 104301 001565 MOV CURTRK.R1 STRACK TO FORMAT 

54 004164 104302 002171 MOV SECSIZ.R [SECTOR SIZE IN WORDS 

55 004166 104205 015763 MOV #IMAGE.R SRECIRCULATION ADDRESS 

56 004170 060001 KFC FORMAT [DO FORMAT 

57 004171 - 115001 TST R1 SANY ERROR ? 
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58 004172 BEQ LSKIPG :NO = DO CHE CK PASS 

59 004174 115400 001371 INC UN.ERI + INCREMENT 

60 004176 106300 002165 001371 CMP RETRY,UN.ERI ‘DONE “ALL RE TRIES ? 

61 004201 BMI FORERR [YUP = ERROR 

62 004203 CALL _—INITPT SREINIT 

63 004205 CALL CLEAR ‘DRIVE CLEAR 

64 004207 CALL «SEEK SRE-SEEK AND GROUP SELECT 
65 004211 BR XSKIP2 [NOPE = RETRY 

66 004213 114000 001371 LSKIP4: CLR UN.ERI [FOR STORE 

67 004215 104301 001710 MOV EMAX,R1 [GET MAX REVECTORS 

68 004217 107301 001741 SUB REVCNT,R1 [SUBTRACT CURRENT ENTRIES 
69 004221 106 001606 CMP SECTRE,RI : ENOUGH LEFT FOR WHOLE TRACK ?? 
70 004225 BMI 1P4 ‘YES = CONTINUE 

71 004225 104201 000011 MOV year SSIGNAL RCT UPDATE OVERI.AY 
72 004227 CALL _—— PAGE SPAGE IT IN 

73 004231 114000 001741 CLR REVCNT :FOR STORE 

74 004233 104300 001707 001737 MOV ERRBUF ,ERPNT FOR RESET 

75 004236 XSKIP4: CALL _LCHEC 'D0 CHECK 

76 004240 102200 020000 001702 BIT #INIRCT, FLAG [TIME TO INIT Sact ? 

77 004243 BEQ XSKIP5 NOPE 

78 004245 101200 000100 001702 BIS #REVECT, FLAG 3SET REVECTOR ON 

79 004250 103200 020000 001702 BIC #INIRCT.FLAG SREST FLAG 

80 004253 102200 002000 001702 BIT #BSTGS FLAG ;DOING BEST GUESS ? 

81 004256 BEQ XSKIP6 "NO = GO ALL THE WAY 

82 004260 104201 000022 MOV #F7,R1 [RCT INIT OVERLAY 

83 004262 CALL _—~ PAGE SEXECUTE IT 

84 004264 BR XSKIPS 'SKIP OTHER 

85 004266 104201 000014 XSKIP6: MOV #F5,R1 [DO FCT=>RCT AND INIT 

86 004270 CALL _— PAGE 3EXECU TE IT 

87 004272 117400 001565 XSKIPS: DEC CURTRK “DECR EREN NT IT 

88 004274 104204 001576 MOV #HOLDBN, R4 GET STA RTING BLOCK NUMBER 
89 004276 104207 001525 MOV #SCR,RO :POINT TO CHARACTERISTICS 
90 004300 102200 020000 001703 BIT #MODE ,FLAG1 + WH MODE 

91 004303 BNE L576 TIF SET THEN 576 

92 004305 104673 000011 MOV LBNT12(RO) ,R3 :GET LBN/TRACK FOR 512 

93 004307 BR XSKIP8 [SKIP 576 SETUP 

94 004311 104673 015 L576: MOV LBNT76(RO) ,R3 [GET LBN/TRACK FOR 576 

95 004313 103203 177400 XSKIP8: BIC #HIBYTE ,R3 [CLEAR HIGH BYTE 

96 004315 104030 001403 MOV R3,DDUMAY SSTORE IT 

97 004317 114000 001404 CLR DDUMMY +1 :FOR | STORE 

98 004321 104203 001403 MOV #DDUMMY ,R3 [LBN/TRACK 

99 004323 CALL ~DSUB [GET STARTING LBN FOR NEW TRACK 
100 004325 104300 001576 001566 MOV HOLOBN, CURBN [GET LOW ORDER 

101 004330 104300 001577 001567 MOV HOLDBN+1 , CURBN+1 [GET HIGH ORDER 

102 004333 104204 001600 MOV #HOLRBN, R4 [GET STARTING RBN NUMBER 
103 004335 104673 000004 MOV RBNTRK (RO) R3 ‘GET RBN/TRACK 

104 004337 103203 177600 BIC #HIIBYTE RS [CLERA OUT GARBAGE 

105 004341 104030 001403 MOV R3,DDUMMY ‘STORE IT 

106 004343 114000 001404 CLR DDUMMY +1 [FOR STORE 

107 004345 104203 001403 MOV #DDUMMY , R3 :RBN'S/TRACK 

108 004347 CALL  DSUB [GET STARTING RBN FOR NEW TRACK 
109 004351 104300 001600 001561 MOV HOLRBN, CURRBN [GET LOW ORDER 

110 004354 104300 001601 001562 MOV HOLRBN#T, CURRBN¢1 [GET HI ORDER 

111 004357 117400 002150 DEC TRK SDECREMENT IT 

112 004361 BNE XSK BS [NO = DO NEXT TRACK 

113 004363 117400 002146 DEC CURGRP *DECREMENT GROUP NUMBER 
114 004365 117400 002147 DEC GRPCNT SDECREMENT IT 
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sesecssesssess 


io =~ =oOOO NS 


WN — SO VONOUEWN“OVOnNOu' 
Mmror 
Nur 


Se ee ee ee eee 
SRERKRUG Ned Stee thet ab th thee th th Ne! bo ote tr 


FWN—SCV0ONOuU 


Ons oe 
104203 
060022 
104204 
104203 
104304 
104304 


001741 


040000 
000011 


001777 
002136 


001777 
000041 


000014 


001604 
000012 


001702 


XDONE : 


FORERR: MOV 


SEEKER: 
LFERR: 





XSLEK2 
#CNTCYL RG 
#ONE,R 
DSUB 
UPDATE 
#CYLNUM, R4 
#ONE ,R3 
DSUB 
CNTCYL,R4 
XSLEEK 
CNTCYL+#1,R4 
XSLEEK 
REVCNT,R3 
XDON 
#F INI, FLAG 
#F4,RI 
PAG 
LBNBAD,R3 
ERRCNT.R4 
oR3 
R3,LBNBAD 
#64,R1 
NEXT 


DD 
OWS 


R1,R2 
#12.,R1 
LFERR 
CYLNUM,R2 
#10.,R 
ERRMNT 


- DO NEXT 


GROUP 
iGeT READY TO DEC CYLINDER CNT 
STANT WORD OF 1 


 DECREMENT IT 
:UPDATE neat tw INDICATOR 


CONTINUE 
2 to ORDER ZERO ? 


;SIGNAL NOT TO 


URRENT CYLINDER NUMBER 
sFOR DECREMENT 
DECREMENT FOR —— CYLINDER NUM 
:LOW ORDER ZERO 


CONTINUE 
zANY LEFTOVER REVECTORS ? 


SEEK 
:SIGNAL RCT UPDATE OVERLAY 
SUPDATE IT 
7GET BAD BLOCKS FROM FCT 
BAD 


3GET force PASS 
D TO GET TOTAL 
STO C 


RCT CLEAN 
7GET NEXT OVERLAY 


zXFC ERROR CODE 
SIGNAL LBN FORMAT ERROR 


et CRROR ON 
ERROR RETURN 


ee ee 


-o— 
REE 


SSSRNeeeSe 
sss $33 sss 


SESEEEEEErE 


PUPP PASAT UII UI & 
WwW 
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001711 
001704 
002000 
000001 
000005 
002141 
000003 
000024 
002141 
001412 
po hE: 


0016 
01302 
00137 
000002 


000005 


010000 001374 


100000 
1 


sah 


171 





pos] 
MmOowWmMrn 


rp 

aed 

z 
~2~=55S2 


#ROCMD,R 
R3,RW.STAT(RO) 
READ 


LERR 
ROBLK+RW.ER1,RO 
#ECCF RO 


#ECCF ROBLK+RW.ER1 
CR5) ,R4 


sFOR ERROR COUNT RESET 
CLEAR REFORMAT FLAG 

:BEST SS ? 

2YES = DO EXTENSIVE READ 
SET UP FOR STORE 

:SET UP 

sSAVE FOR LATER RESET 
sSKIP EXTENSIVE READ SETUP 
sEXTENSIVE REGULAR READ 


sEXTENSIVE ERROR READS 
sSAVE FOR LATER RESET 
UTE IT 


GET PORT NUMBER 


TSECTOR SIZ WORDS 
[LOAD SECTORS/TRACK 
“POINT TO 


s SECTOR P 
sELSE STORE IN COMMAND BLOCK 
; a POA SECTOR NUMBER 


LOAD HIGH ORDER BLOCK NUMBER 
sSTORE IN C K 

3GET BUFFER POINTER 

sSTORE IN COMMAND BLOCK 
sPOINTER TO DUMMY SDI BLOCK 
sSTORE IN READ BLOCK 

; SURE POINTING AT BLOCK 
sRESET STATUS POINTER 

sSTORE IT BACK 

sREAD 1 SECTOR 

sANY ERRORS ? 

sYES = UH OH 

3GET ECC STATUS WORD 

sECC ERROR 

zYES = MARK AS BAD FOR NOW 


DATA C 
sANY ERROR IN COMPARE ? 
sNOPE = CONTINUE LOOP 


;CLEAR ECC ERROR BIT 
3GET_ IMAGE POINTER 
ZALREADY BEEN HERE 2 

:VUP = ,DON'T COUNT AGAIN 


3 T 
Zs INCREMENT ERROR COUNT 
sPOINT TO NEXT READ CMD BLOCK 








UDAFS2 = 


58 004633 
59 00463 
60 00463 


33 


SISAFAT 
seRSeEs 
Cacncncn ee ee 
NMS NVIW Ss SUT 


REREEEEEEEEEEEESE 
SEVNSSRVSARVOR RS 


QUIERES 


IN 
NNW NVIW = NQOUWNS 


SESEESEREEESEES EES 


ANN S 


RWUNIASSSVEARAVLSSSLSSLAVLSSELRALA 
NN 


at ot ot od 3 es I I 


RS 


Ss 


117400 


SPRSoPsesesrserese 
Sita SReuaaSe 


SFR 
=n 


= 
R 
ro rs 
RNVWWNWAWAA NWA PONE 


06000, 
115001 


— 
R 
oa 
“I 


3 
102203 
103200 
115001 


106300 
104207 
060006 
115001 


002137 
002140 
001711 
Ot Ose 
00000 
100000 
000003 
00000 
00777 
000000 


060000 


002131 
002124 


001374 


010000 


LHERE: 


LSKIP8: 


RE/D4: 


LSKIP6: 
C 


C 
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SECCNT 
LAGAIN 


N 
. seers 
ERR 


LDONE 
ACMOBUF ,R4 
RB. sIMCRd), R3 


0,R3 
#HD.LBN,R3 
LSKIP8 
#HD.RBN,R3 
LSKIP8& 
R4 
LSKIP7 
UN 


SECSIZ,R2 
#RDBLK RO 
#HSLIM-1,R3 
RS,Ru. CRO) 
RS RW. LOWCROD 
R3,RW. HI¢RO) 
ROBUF ,R 

RS. Ru. _—” 


ab 


RSA EO CRO) RO 
#RDCMD,R3 


C 
R3, (ROS 
SECSIZ,R2 
READ 

LER3 
RW.ER1(RO)R3 
#ECCE R3 

ECCC 

R 


1 
LER1 
07; heel 


LSKIP 
Seer, meeU Ken ERt 


3DECREMENT eres 

3NO = DO NEXT SECTOR 

sDECREMENT COUNTER 

NO = REPEAT TRACK READ AND COMPARE 
sANY ERRORS ON FIRST PASS ? 

3NO = ALL DONE CHECK PASS 

POINT TO COMMAND BUFFER 

2GET IMAGE POINTER WORD 

z1S IT BAD ? 


2NO = SKIP IT 


AVE COMMAND POINT 
GET IMAGE POINTER 
GET HI ORDER BLOCK NUM AND HDR CODE 
+h wr LOW ORDER 


T 
ELSE ” RESTORE gs POINTER 
AND DO NEXT ENTR 
:GET gi NUMBER 
WAIT FOR PULSE 
SSECT OR SIZE IN WORDS 
;PREPARE FOR READ SECTORS 
POINTER TO DUMMY SDI BLOCK 
COMMAND BLOCK 


RE OCK 
LOAD ADDRESS OF DATA BUFFER 
IN COMMAND BUFFER 


sSTORE IN BL 
3LO ORDER BLOCK NUMBE 
sSTORE IN READ COMD BL 
au ORDER BLOCK NUM AND C 
sSTORE IN READ CMD BL 

: STORE 

OAD 


SDI 
ise? CURRENT HEAD ADDRESS IN COMMAND 
[MAKE SURE POINTING AT BLOCK 

K AS ONLY REQUEST 


MARK 
STORE IN CMD BLOCK 
#94 Sie IN WORDS 
sREAD 1 SECTOR 
ZANY ERROR IN READ ? 
zYES = CONSIDER BAD 
3LOAD ECC ERROR INDICATOR FOR TEST 
ates ul FOR ECC gn ROR 
~ CHECK 
SCLEAR ECC ERROR BIT 
FIND OUT HOW MANY SYMBOLS IN ERROR 


37 

YUP = CONSIDER BAD 

sIS FIRST ne O.K. ? 
:POINT_ re COMPARE BLOCK 
3D0 DATA 
sANY ERROR IN COMPARE ? 


ZNO ERROR 
:SKIP BAD HEADER FLAGGING 










UDAF 
LBN 


52 = UDA-52 FORMATTE 
FORMATTING OVERLAY 
115 005004 101200 
HS 005007 102200 
117 005012 

118 005014 115400 
119 00501 

130 0050 1OsGas 
121 0056 103203 
1s¢ 005024 106203 
123 0050 

124 0050 104643 
125 005032 103203 
136 005034 102200 
127 005037 

128 005041 104030 
129 005043 101200 
130 005046 101200 
131 005051 101203 
13 005053 100643 
133 005055 104640 
134 005060 104042 
135 005061 104207 
136 005063 104204 
137 005065 

138 Bo2087 104307 
139 005071 104301 
140 005073 105301 
141 005075 10130) 
6 005077 104205 
143 005101 104203 
144 005103 100257 
145 005104 100251 
146 005105 117403 
147 005106 

148 005110 104024 
149 005111 104205 
150 005113 104642 
151 005115 103202 
13¢ 005117 101052 
153 005120 100642 
154 005122 H og 
155 005124 104307 
156 hts 

157 0051 102200 
158 005133 

159 005135 100623 
160 005137 

161 005141 100623 
16¢ 005143 103200 
163 005146 

164 005150 117400 
165 O31 36 1022 
166 00515 

167 005157 104203 
168 005161 103905 
169 005163 103 OS 
170 005165 10620 
171 005167 


(F2 


000040 
000100 


002000 


0000 
it 


011607 
000000 
007777 
000000 
011607 
002171 
020000 


001703 


001703 


001702 


RPT1: 


1$: 
2$: 
BRBN: 


5$: 


: — X04.01 23-AUG-82 13:14:22 PAGE 56-2 


#BDHD, FLAG 
#REVECT, FLAG 
LER2 


RCTBAD 
BDIRCT 
FT.HiCR4),R3 


#LO,R 
#HD.RBN,RS 


N 
FT.HI(R4) R3 
#HD.CLR,RS 
#PRIM, FLAG 
SND 


R3, DUMMY +1 
#PRIM, FLAG 
#RPRIA.FLAGI 
R3,FT.HI(R4) 

FT -LOW(R4) ,DDUMMY 


REVRBN,RO 
REVRBN#1,R1 
ST.RBN,Ri1 
#HD.RBN,R1 
#PRMBUF .RS 
#RBNRPT.~R3 
RO, (R5)+ 
R1,(R5)+ 

R35 

RPT1 

R2,R4 

#PRMBUF RS 
FT.BUF (R4) .R2 
gr a e 
R2,FT.BUF(R4) 
#PRMBUF ,R2 
SECSIZ,RO 
CEDC 

#MODE .FLAG1 
RS -RW.E76(R2) 
R3,RW.EDC(R2) 
#BDHD, FLAG 


ERRCNT 
#PRIM,FLAG 
7$ 


#IMAGE R3 
FT.HI(R3) ,R2 


#0, 
#HO.PRV,R2 
6$ 


sFLAG AS BAD HEADER 

IN RCT 22? 

sNOPE = SKIP NEXT STUFF 

2 INC BAD COUNTER 

: THEN MARK BAD 

2GET HI ORDER BLOCK NUM AND HDR CODE 
eetem LOW ORDER 


ZYUP = THIS ONE SECONDARY 
ZSTORE HIGH ORDER FOR RBN COMPUTATION 
SET PRIMARY FLAG 


; Ss 

sSTORE BACK IN IMAGE 

STORE LOW ORDER FOR RBN COMPUTATION 
sSAVE IMAGE POINTER 

sMAKE SURE POINT TO CHAR BLOCK 
sPOINT TO BLOCK NUMBER 

GET PRIMARY RBN NUMBER 

3GET ore Feet ronee RBN 


; SET RBN_HEADER cope 

sUSE RDBUF TO HOLD 128 COPIES OF RBN 
sCOUNT OF REPLICATED RBN'S 

STORE A COPY 


3AND HIGH 


3NO = STORE 

sRESTORE IMAGE POINTER 

sPOINT TO BEGINNING OF BUFFER 
3G POINTER 


;CLE 

30R IN NEW BUFFER POINTER 
sSTORE IT kK 

2FOR EDC COMPUTATION 
sSECTOR SIZE IN WORDS 
sCOMPUTE IT 

sWHAT MODE ARE WE IN 
z1F CLEAR THEN 512 

3 STORE iy 576 BUFFER 
sSKIP 5 ETUP 

> STORE 


2BRANCH AROUND SECONDARY 
sDEC_ERR CNT SO PRIMARY STATS WILL BE RIGHT 
; ON THIS TRACK ? 


21S THERE A PRIMARY 

2NO = SKIP HEADER RESET 
POINT TO FORMAT TABLE 
; HEADER WOR 

sCLEAR ALL BUT HEADER 


:1S_IT THE PRIMARY ? 
zYES = DONE 











NDR 2 2 2 2 
SSLESRANLSESEVRALATAS ISVS ARN 
S88888383ssss 

SVRNSa RBS QASS 


Ssssesssesessosses 


208 005 


3 
3 


Sssossss 


peieteeetatefetepetepet 


SREY 


POPIPONINOPINININNONININONONgNgND 
VW NUN © 


BNANRWVSOWNAN RW 
Sssssooeesses 


foro 
Nr 
Min 


105203 


enenanancnananan ncaananan web St ee i ee ee en ee a a oy 
sssarcsauscar Rees SReserescae 
SESSESRENS BOER RakiekensaNe 


w f}& 
mM 
s 


000003 


001703 


001702 


001703 


001703 


002141 


ADD 
] 
6$: 


9$: 
7$: 
BDIRCT: 


Oaww— 20D oOwz2zunow ow 
See eS NS ee— oc 2—ss— 


oOo 
to 


<n Ms4<cKnm 


SND: 


@ @ 
a — 


BIS 
MO 


LSND: INC 


LSKIP9: MOV 
MO 


LOK: DEC 
BNE 
LSKIP3: MOV 





UDAF52 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 56-3 
LBN FORMATTING OVERLAY (F2) 


#IMLEN,R3 
FT. HICR3) ,R2 
#H R 


#HD REV Re 
R2,FT.HICR3) 


#GDBLK, Re 
FT.BUF (RS) RS 
+ a SK,R5- 
R5,FT.BUF (RS) 
ERPNT RS 
#FPRIA,FLAGI 
9$ 


#ERLEN,RS 
1(R5) ,R2 


#LO,R 
#HD.PRV,R2 


LSKIP3 
#BDHD, FLAG 
BDIRCT 
#HD.REV,R3 
RS. sft. HE CRG) 
ERELAG 
ERPNT,R3 
FT. LoucRs), R2 
R2, (R3)+ 
FT.HICR4),R2 
#BDHD FLAG! 


LSKI 
#HD.CLR,R2 
#HD.REV,R2 
SND 


3NO = POINT TO — ENTRY 
;CHECK NEXT ENT 
RESET TO HI ORDER 
;CLEA AR HEADER 
MARK AS SECONDARY 
3 STORE BACK 


| 

| 

INT TO GOOD BLOCK | 
:GET BUFFER POINTER AND FLAGS 


WAS IT A PRIMARY FROM THE FCT ? 
YES = UPDATE WILL MAKE wi _ SECONDARY 
LOOK FOR ouen BACKW 


zNO = OOK ING 
GET WGA ORDER AGAIN 
: CLEAR THE HEADER 
MAKE IT SECONDARY 
[STORE IT BACK 
: INC SECONDARY COUNTER 
DON'T NEED GOOD EDC ANY LONGER | 
;CLEAR SO WILL PUT IN AS RBN | 
;SET SO NONE WILL BE PRIMARY 
TRELOAD HEADER 
;CLEAR THE HEADER 


K AS BAD 
STORE BA BACK IN IMAGE 
NO = Pur IN TO orvec ren 
ELSE DO NEXT ENT 
BAD H HEA DER 
zYUP = MARK As BAD 
3MARK_AS SECONDARY 
ite BACK IN IMAGE 
SET RE-FORMAT FLAG 
;STORE BACK 
GET LOW ORDER BLOCK NUMBER 
sSTORE FOR RCT UPDATE 


:NO - LE AS USUAL 

ZELSE ee BAD HEADER CODE 

AND PU = ot pear CODE 

2 INC SECONDARY COUNT 

3STORE FOR act UPDATE 

STORE BACK 

INCREMENT IT 

:UP COUNTER OF BAD BLOCKS 

NO NEED TO ee toy ANY MORE THIS SECTOR 
;DECREMENT C 


NO = RE-READ SECTOR IN ERROR 
GET SAVED VALUE 





F 8 | 
SEQ 96 
UDAFS2 = UDA=52 Boy Ay DMACR x04.01 eS-WU-Ge 13:14:22 PAGE 56-4 
LBN FORMATTING OVERLAY (F2) 


005 117400 001711 DEC ERR :DECREMENT IT 
005 POP [RESTORE COMMAND POINTER 
1 005 103200 000040 001703 LSKIP7: BIC PBDHD, FLAG1 [CLEAR BAD HEADER FLAG 
005 105204 000004 ADD #RDLEN,R4 [POINT TO NEXT ENTRY 
3 005370 115000 001711 TST ERR : DONE ALL SECTORS ? 
34 00537 BNE LHERE = DO NEXT SECTOR 
35 005374 115000 001704 TST ERFLAG {WERE THERE ANY BAD SECTORS FOUND 
36 005376 BEQ LDONE - ALL D 
237 005400 104207 014154 MOV #RBNBUF ,RO {POINT TO REN BUFFER 
238 005402 104301 002131 MOV DWRD,R1 SDIAGNOSTIC WORD 
239 005404 100271 MOV R1, (RO)+ i STORE IT 
340 005405 102200 020000 001703 BIT #MODE , FLAG? T MODE ARE WE IN 
41 005410 BEQ 1$ iF ATLEAR TT HEN 512 
242 005412 104204 000437 MOV #287.,R4 sELSE 576 = USE 287 AS WORD COUNT 
243 005414 BR 2$ SKIP 512 SET 
244 005416 104204 000377 1$ MOV #255. ,R4 12 MODE 
005420 104301 002126 g MOV FWRD, sFIRST WORD PATTERN 
246 005422 ok 903 002127 MOV oe Se | sSECOND WORD OF PATTERN 
247 005424 104303 002130 MOV TWRD,R s THIRD WORD OF PATTERN 
248 005426 10027 LOVER: MOV R1, (RO)+ SSTORE IT 
249 005427 117404 DEC RG :DECREMENT COUNT 
250 0054 BEQ LOVERS [QUIT IF 0 
251 005432 100272 MOV R2, (RO)+ SSTORE IT 
252 005433 117404 DEC RG :DECREMENT COUNT 
253 005434 BEQ LOVERS SQUIT IF 0 
254 005436 100273 MOV R3, (RO)+ ‘STORE IT 
339 005437 117404 DEC RG SDECREMENT COUNTER 
56 005440 BNE LOVER [REPEAT TILL DONE 
257 005442 102200 020000 001703 LOVERS: BIT #MODE , FLAG1 WHAT MOD a... 
258 005445 BEQ 1$ SIF CLEAR THEN 512 
259 005447 104302 002135 MOV BADE76,R2 EDC FOR PATTERN (576) FORCED ERR 
260 005451 BR 2$ ‘SKIP 512 SETUP 
261 005453 104302 002133 1$: MOV BADEDC ,R2 260 C FOR PATTERN (512) FORCED ERR 
262 005455 100272 2$: MOV R2, (ROS+ ST 
263 005456 102200 000004 001703 BIT #RPRIM,FLAG1 [NEED GOOD RBN EDC 22? 
264 005461 BEQ LOVER2 
265 005463 104203 015763 MOV #IMAGE ,R3 :POINT TO IMAGE 
266 005465 104205 011132 MOV #GDBLK.R5 [POINT TO GOOD BLOCK 
267 005467 104632 900002 LOVER4: MOV FT.HI(R3) ,R2 GET HI ORDER 
268 005471 103202 00777 BIC r) CLEAR JUNK 
269 005473 106202 060000 CMP #HD.RBN,R2 18 IT THE PRIMARY ? 
270 005475 BEQ LOVERS YUP = HANDLE IT 
5477 105203 000003 ADD #IMLEN,R3 3 CHECK NEXT ENTRY 
272 005501 BR LOVER :TRY AGAIN 
273 005503 104632 000000 LOVER3: MOV FT.BUF (R3) ,Re :GET BUFFER POINTER 
274 005505 103202 007777 BIC #BUFMSK,R2 ZCLEAR ONLY BUFFER POINTER 
275 005507 101052 BIS R5,R2 [SET IN NEW BUFFER POINTER 
276 005510 100632 000000 MOV R2.FT.BUF(R3) SSTORE IT 
277 005512 104304 002006 LOVER2: MOV DPREA,R4 [DATA PREAMBLE LENGTH 
278 005514 104303 002005 MOV HPREA,R3 ZHEADER PREAMBLE LENGTH 
279 005516 104307 002004 MOV IMSTAR,RO :POINT to T RACK IMAGE START POINT 
280 005520 104301 001565 MOV CURTRK.R1 : CURRENT RACK NUMBER 
281 005522 104302 902171 MOV SECSIZ.R2 TSEcT On SIZE IN WORDS 
282 005524 104205 015763 MOV #IMAGE, *R5 :RECIRCULATION ADDRESS 
283 005526 060001 KFC FORMA TRE=FORMAT 
284 005527 115001 TST R1 [ANY PROBLEMS ?? 
285 0055 BEQ LOVER1 ZNO = DO CHECK PASS 








UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 56-5 
LON FORMATTING OVERLAY (F2) 


4] 0055 115400 001371 INC UN.ERI s INCREMENT IT 
87 0055 106300 002165 001371 CMP RETRY ,UN.ERI DONE ALL RETRIES ? 
288 005537 BMI FORERR :YUP = * OR 
$58 005541 CALL INITPT sREINIT 
005543 CALL CLEAR sDRIVE CLEAR 
291 005545 104300 002146 001553 MOV CURGRP, ISEEK+3 
$36 005550 CALL SEEK ;RE~SEEK AND GROUP SELECT 
005552 BR LOVER2 TRY 
294 005554 114000 001371 LOVER1: CLR UN.ERI SCLEAR RETRY COUNT 
295 005556 R LCHEC RE-CYCLE CHECK PASS 
296 005560 LDONE: RETURN 
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Bes 
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VM 
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UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 57 
LBN FORMATTING OVERLAY (F2) 


CONSTRUCT THE READ COMMAND TABLE 


: MOV 





R3,R 
RS, STARIT 
2¢ (5) R3 
#LO,R 
#HD.LBN,R3 
FLKIP2 
ript RBN,R3 
KIP2 


R 
ache. CopCaee 
#R RO 


TB 
ee RS 


KP1 
ETRAGE. RS 
#IMAGE RS 

LKP1 
PIMAGE. RS 
STAR IT.R5 
#IMLEN,RS 
R> st TaRiT 





SEQ 98 


ZINIT COUNTER 
[COMMAND BUFFER 

:POINT TO TRACK 

7SET UP FOR HSR CODE COMPARE 
ISOLATE HI 4 BITS(HDR CODE) 
3YES “non AS GOOD TO CHECK 
3YE = MARK AS_GO0D TO CHECK 


FOR ST 
i STORE AS - SECTOR FLAG 
POINT TO NEXT BLOCK 


SKIP GOOD 
:LO ORDER BLOCK NUMBER 


sLOAD SDI R OMMAND 

Ser IN eae TRACK NUMBER 
3STORE IN BLOCK 

7SAVE PTR TO IMAGE BLK ENTRY 
ZADD TO pa NEXT SECTOR 

sSEE IF HAVE TO LOOP BACK TO TOP 
NEED TO RESET 

NO NEED = JUST CONTINUE 
3 SUBTRACT ro yt LOOP AMOUNT 


SKIP ZERO CONDITION 
zIF ZERO SIMPLY MOVE TO FRONT 
BE NG ADDRESS ? 


T ENT 
MAKE IT ae W STARTING ADDRESS 
:DECREMENT 
NO = DO NEXT SECTOR 


; 005673 


me 


004014 
004017 
8 004021 


: 
PPEESREESS 


oo 


—“SOVBNOuUswn—oo 
VU 
VW 


SPEEESEEEEES 


See pee tet tte ee 
SUNLIRKRLS 


WW 
VW 


REEREEESESSS ESEEEEESEREESE 


MUMMMMMU ES BEERS ARRHR AW 
ek aD med a oad ds td es td eet 


SSLRENSERESS 


Ra 
ror 
ves 


ssceers 


ee ee ee ee ee 
oucoowm 


So 
w 
~ 


SVS 
VWWN= 


001636 
001703 


001703 


001702 





op = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 58 
FORMAT IMAGE SETUP OVERLAY (F8) 


-SBTTL LBN FORMAT IMAGE SETUP OVERLAY (F8) 


DMOVLY F8,START 
SET UP TRACK FORMAT 
MOV #8 CUROVL 
BIT #MODE , FLAG! 
MOV BNT12(RO) ,R3 
BR $ 

MOV LBNT76(RO) , JR3 


MOV #GDBLK,R3 

MO EDC, 

BIT #MODE ,FLAG1 
on” R4 ,RW.E76(R2) 
MOV R4, gon ot ea 


MOV URBN,R 
MOV R3,FT.LOW(RS) 
MOV CURBN+1 ,R3 
BIC #HD.CLR.R3 
BIS #HD.LBN,R3 
MOV R3,FT.HI CRS) 
ADD #IMLEN, 
DUBINC CURBN 
BIT #REVECT, FLAG 
BNE LKIP9 
DEC RCTTOT 
BNE LKIP9 
BIS #INIRCT, FLAG 

V FCNT,LBNBAD 
DEC SECCNT 
BNE LKIP2 
RBN SETUP 
PUSH 
MOV #SCR,RO 
MOV RENTRK ROD R3 
BIC #HIIBYTE RS 
MOV a3 SECCNT 
MOV #RBNBUF ,RO 
MOV #GDBLK,R1 
MOV SECSIZ, *R2 

: MOV R1)+,.R3 
MOV RS. (RON 
DEC 
BNE LKIP20 


3GET OVERLAY OFFSET 
:POIN “RODE CHARACTERISTICS BLOCK 


iF SET T 


sUSE AS_COUNTER 

POINT TO soe iro BUFFER 
POINT TO DATA BLOC 

GET GOOD 


aes 
sWHAT MODE APE WE IN 
sIF CLEAR THEN 512 


OU RC 
;SET TO_INIT RCT 
GET FCT ENTRY COUNT ~ AFTER RCT 


sDECREMENT COUNTER 
sCONTINUE TILL DONE ALL 


SAVE POINTER TO FIRST RBN ENTRY 
;POIN BL rea ISTICS 


sPOINT TO on. BUFFER 
POINT TO GOOD BLOCK 

SCOUNT OF WORDS IN SECTOR 
ET yon? 


TORE TI 
:DECREMENT ren 
D0 WHOLE BUFFER 





*. SEQ 100! 


UDAF52 = UDA=52 FORMATTER DMACR x04. 01 23-AUG-82 13:14:22 PAGE 58-1 
LBN FORMAT IMAGE SETUP OVERLAY (F8) 
58 004163 102200 020000 001703 BIT #MODE ,FLAG1 T MODE ARE WE IN | 
59 004166 BEQ 1$ Ate CLEAR THEN 512 | 
60 004170 104302 002135 OV BADE76,R2 ZEDC FOR PATTERN (FORCED ERROR IND) | 
6¢ 004174 104302 002133 1$: MOV BADEDC ,R2 SEDC FOR PATTERN (FORCED ERROR IND) 
6 004176 10027 2$: MOV R2, (ROS+ SSTORE IT 
64 004177 104203 014154 LKIP21: MOV — #RBNBUF ,R3 POINT TO BUFFER 
65 004201 100653 000000 MOV R3,FT.BUF (RS) SSTORE IN IMAGE 
66 004203 104303 001561 MOV CURB RS GET LOW ORDER RON | 
67 004205 10065 1 MOV R3,FT.LOWC(RS) [STORE IN IMAGE | 
68 004207 104303 001562 MOV CURRBN¢1,R3 :GET HIGH ORDER RBN 
69 004211 103203 170000 BIC #HD.CLR,R3 [CLEAR HEADER | 
70 004213 101203 060000 BIS #HD.RBN,R3 [SET IN RBN HEADER 
71 004215 100653 00000 MOV R3,FT.HI (RS) [STORE IN IMAGE 
0 004217 105205 00000 ADD #IALEN,RS :POINT TO NEXT ENTRY 
73 004221 DUBINC CURRBN Z INCREMENT RBN NUMBER 
74 004227 117400 002137 DEC SECCNT SDECREMENT COUNTER 
03 004231 BNE LKIP21 ‘CONTINUE TILL DONE 
77 : 
78 004233 1043 1606 002137 MOV SECTRK,SECCNT :SET UP COUNTER 
004236 104204 01576 MOV MIMAGE .R4 [POINT TO IMAGE 
80 004240 104203 001525 MOV SCR,RS :POINT TO CHARACTERISTICS 
81 004242 102200 020000 001703 BIT #MODE ,FLAG1 T MODE AR IN 
82 004245 BEQ a CLEAR THEN 512 
83 004247 104632 000015 MOV OF FS76(R3) ,R2 [GET GROUP OFFSET (576) 
84 004291 BR $ [SKIP 5 
85 006253 104632 000011 1$: MOV OFFS12(R3) ,R2 *GET GROUP OFFSET (512) 
86 004255 110702 2$: SWAB :GET INTO LOWBYTE 
87 004256 103202 177400 BIC #HIBYTE RZ [CLEAR HIGH GARBAGE 
88 004260 115002 TST R2 ZANY OFFSET ? 
89 00426 BEQ LKIP22 [NO = SKIP CALCULATIONS 
90 004263 115000 002146 TST CURGRP [1S GROUP ZERO ? 
91 004265 BEQ LKIP22 sYES = NO OFFSET. 
92 004267 104020 001410 MOV R2, TEMP [STOR 
93 004271 114 001411 CLR TEMP+1 FOR 
004273 104300 002146 001403 MOV CURGRP ,DDUMMY [GET CURRENT GROUP 
95 004276 114000 001404 CLR DDUMMY +1 'CLEAR HIGH WORD 
004300 104203 001410 MOV ATEMP,R3 FOR 
97 004302 104204 001403 #DDUMAY, R4 ‘DITTO 
98 004304 CALL —DMUL [MULTIPLY TO GET OFFSET for THIS GROUP 
99 004306 106300 001606 001403 LKIP23: CMP SECTRK,DDUMMY 71S TOTAL OFFSET MORE THAN NUMBER OF SECTORS ? 
100 004311 BPL LKIP24 [NO = ALL IS FINE 
101 004313 107300 001606 001403 SUB SECTRK ,DDUMMY TYES = SUBTRACT TILL IT IS 
102 004316 BR P [CHECK AGAIN 
103 004320 104200 000003 001410 LKkIP24: MOV #IMLEN, TEMP [GET LENGTH OF IMAGE BLOCK 
104 004323 114000 001411 CLR TEMP+1 [FOR STORE 
105 004325 104203 001410 MOV #TEMP,R3 [FOR MULT 
106 004367 CALL = DMUL :GET LENGTH TO OFFSET 
107 004331 104143 MOV (RG) R3 [GET RESULT 
108 004332 104304 001714 MOV E IMAGE .R4 :GET ADDRESS OF END OF IMAGE 
109 004334 107034 SUB 3 aR 3 SUBTRA CT TO GET STARTING LOCATION 
110 004335 104040 002004 LKIP22: MOV Ra. HASTAR SSTORE IMAGE POINTER 
111 004337 104300 001602 001563 MOV HOLDPN, CURPBN :GET Low OR SER P | 
112 004342 104300 001603 001564 MOV HOLDPN*1, CURPBN¢1 GET H H ORDER 
113 004345 102200 001702 LkIP27: BIT #FCTAVL, FLAG :1$ FCT AVAILABL | 
114 004350 BEQ LKIP2 :NO = ASSUME BLOEK GOOD 








UDAF 
LBN 


52 = UDA 
FORMAT I 
115 004 3 
116 00435 
117 004357 
118 004361 
119 004362 
120 004364 
121 004366 
122 004370 
123 004372 
124 004374 
125 004376 
126 004400 
127 004402 
128 004404 
129 004407 
130 004407 
131 004411 
132 004413 
133 004415 
134 004417 
135 004422 
136 004424 
137 004427 
138 004431 
139 004433 
140 004435 
141 004437 
142 004441 
143 004443 
144 004446 
145 004451 
146 004454 
147 004456 
148 004460 
149 004462 
150 004464 
151 004465 
152 004467 
153 004471 
154 004473 
155 04474 
156 004476 
157 004500 
158 004502 
159 004504 
160 004506 
161 004510 
166 004511 
16 ooeets 
164 00451 
165 004515 
166 004517 
167 004521 
168 Oot ese 
169 004526 
170 004530 
171 004532 


101200 
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a td td dd 
oo 
—wW 
oS 
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SSFRIARR FR 
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NSSER 
S Su 


000002 


011607 


11607 
2171 


020000 


001702 


001702 


001706 


001703 


8 
LKIP12: 


LKIP25: 


6$: 


RPT: 


~52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 58-2 
MAGE SETUP OVERLAY (F8) 


#FCTEMT, FLAG 
LKIP28 
BADPBN,R2 
R2),R1 
R1,CURPBN 
LKIP4 
1(R2),R1 
#HD.CLR,R1 
R1, CURPBN¢1 
LKIP4 
PCNT 
FCNT 
LKIP12 
#F CTEMT, FLAG 
FT.HI(R4),R3 
#0 RON, R3 
#PRIN. FLAG 
#REVECT, FLAG 
6$ 
RCTBAD 
MARBAD 
1(R2),R3 
#PRMY_RS 
LKIP 
#PRIM, FLAG 


#SCR,RO 

#CURBN ,R4 
PRIMRB 
R4 
REVRBN,RO 


REVRBN+1,R1 
ST.RBN,R1 


RO, (RS) 
R1,(R5)+ 
R3 


#PRMBUF ,R3 
R3,.FT.BUF(R4) 
#2 ,BADPBN 


MBUF ,R2 
SECSIZ,RO 
#MODE , FLAG1 


Ons 
mm orn 
~J 


sFCT EMPTY ? 
zYUP = BLOC 


GE 

sARE T 2 

3NO_= SKIP REST OF COMPARE 
; GH ORDER 


sDECREMENT IT 

sDECREMENT FCT COUNT 

31F NON = ZERO SKIP FLAG SET 
3SET EMPTY FLAG 


3GET HEADER WORD 

sCLEAR ALL BUT HEADER 

:I1S_IT AN RBN ? 

NOPE = SKIP RBN STUFF 

SO WON'T GET PRIMARY ON CHECK PASS 
260 MARK AS BAD 


2IN RCT ? 

NO = SKIP RCT STUFF 

: INCREMENT IT 

:GO_ MARK BAD 

GET BAD PBN HDR 

21S IT SECONDARY ? 

zYES - dO IT 

SET FLAG FOR cise FOUND 


; Ss 
sSTORE IN IMAGE BLOCK 
2 SAVE p~ POINTER 


PRIMARY RBN NUMBE 
sRESTORE IMAGE POINTER 
2GET — ae RBN 


ADER CODE 

sUSE RDBUF TO HOLD 128 COPIES OF RBN 
sCOUNT OF REPLICATED RBN‘S 

sSTORE A COPY 


; WORDS 
sCOMPUTE EDC = RETURNED IN R3 
sWHAT MODE ARE WE IN 


L 8 


SEQ 102 
UDAFS2 = UDA~52_FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 58-3 | 
LBN FORMAT IMAGE SETUP OVERLAY (F8) | 
172 004535 BEQ 1$ zIF CLEAR THEN 512 | 
173 004537 100623 000440 MOV R3,RW.E76(R2) i STORE IT 576 BUFFER 
174 004541 BR 23 :SKIP 512 SETUP 
175 004543 100623 000400 1$: MOV R3,RW.EDC(R2) ‘STORE IT 512 BU 
176 004545 2$: BR LKIP4 SKIP SECONDARY. REVECTOR 
177 004547 LKIPS: 
178 004547 115400 002155 INC SNDCNT ZINC IT 
179 004551 102202 01 BIT #FBDHD ,R2 SHEADER IN ERROR CODE IN FCT ? | 
180 004553 BNE MAR [YUP = MARK BAD 
181 004555 104643 000002 MOV FT.HI(R4) R3 [GET HIGH ORDER HEADER 
182 004557 103203 170000 BIC #HD.CLR,RS *CLEAR HEADER CODE 
183 004561 101203 030000 BIS #HD..REV,R3 SSET HEADER TO SECONDARY REVECTOR 
184 004563 100643 000002 MOV R3,FT.HI(R4) SSTORE IN I 
185 004565 105200 000002 001706 ADD #2, BADPBN ZINCREMENT BADPBN POINTER 
186 004570 BR LKIP4 ‘SKIP GOOD MARK 
187 004572 MARBAD: 
188 004572 104643 000002 MOV FT.HI(R4) R3 7GET HIGH ORDER HEADER 
189 004574 103203 170000 BIC aud. CL RS SCLEAR HEADER CODE 
190 004576 101203 110000 BIS #HD.BAD,R3 [MARK AS BAD 
191 004600 100643 000002 MOV R3, ef HI (R4) [STORE IN IMAGE 
192 004602 105200 000002 001706 ADD #2; BADPBN [UPDATE COUNTER 
193 004605 LKIP4: 
194 004605 105204 000003 ADD #IMLEN,R4 ZPOINT TO NEXT IMAGE ENTRY 
195 004607 106304 001714 CMP E IMAGE .R4 ZAT THE END ? 
196 004611 BNE LKIP29 [NOPE = CARRY 
197 004613 104204 015763 MOV #IMAGE ,R4 SPOINT TO START 
198 004615 LKIP29: DUBINC CURPBN 3D0 THE INCREMENT 
199 004623 115000 002163 TST PCNT :DONE WITH THIS BLOCK OF PBNS? 
200 004625 BNE LKIP10 :1F NOT DONE SKIP 
201 004627 CALL FCPG TELSE PAGE IN NEW FCT BLOCK 
202 004631 117400 002137 LKIP10: DEC SECCNT [DECREMENT IT 
203 004633 BNE LKIP27 ZNO = DO NEXT BLOCK 
205 004635 102200 000004 001703 ik1P28: BIT #RPRIM. FLAG! NEED GOOD EDC ? 
207 004642 103200 000004 001703 BIC #RPRIM,FLAG1 CLEAR FLAG 
208 004645 POP :GET POINTER TO FIRST RBN ENTRY 
209 004646 104203 011132 MOV #GDBLK,R3 :GET GOOD EDC BLOCK 
210 004650 000000 MOV R3,FT.BUF (R4) :STORE IT IN BUFFER POINTER 
git 004652 BR LkIP33 :SKIP POP 
2 | 
213 004654 ikIP7: POP R4 :POP STACK (RBN RNTRY ADDRESS) 
214 004655 104304 002004 LKIP33: MOV IMSTAR,R4 [POINT TO FIRST TO FORMAT ENTRY 
215 004657 104303 001714 MOV EIMAGE ,R3 :GET END ADDRESS 
216 004661 107203 000003 SUB #IMLEN.RS :POINT TO FLAG OF LAST ENTRY 
217 004663 106043 CMP R4,RS SFIRST = LAST 
218 004664 BEQ LKIP30 [NO = “SKIP SPECIAL STUFF 
219 004666 104135 MOV (R3) RS [GET R 
220 004667 101205 040000 BIS #RECIR,RS :SET RECIRCULATION FLAG 
221 004671 100135 MOV ~ (R35 :STORE IT BACK 
222 004672 BR Lkip3i [SKIP KLUDGE FIX TO UDA 
223 004674 101200 040000 002004 LKkIP30: BIS PRECIR IMSTAR [SET BIT IN POINTER | 
224 004677 104143 LKIP31: MOV (R4) RS :GET BUFF POINTER 
225 004700 101203 100000 BIS #LAST,R3 :SIGNAL AS LAST 
226 004702 100143 MOV R3, (R4) SSTORE IT BACK 
227 004703 104204 001602 MOV #HOLDPN, R4 ZFOR DECREMENT 
8 004705 104203 001606 MOV #SECTRK.R3 :DITT 





ee eee _—~y 


SEQ 103) 





UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 58-4 
LBN FORMAT IMAGE SETUP OVERLAY (F8) 


§ 004707 C DSUB sSUBTRAC TO GET NEXT TRACK 


ALL 
004711 RETURN 


> o ae 





UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 59 
LBN FORMAT IMAGE SETUP OVERLAY (F8) 


1 $ 
¢ : PAGE IN NEXT FCT BLOCK 
4 904713 FCPG: PUSH R5,R4 
5 004715 102200 000002 001702 BIT #F CTEMT, FLAG 
6 004720 BNE 1 
004722 104200 010455 001740 MOV #PBNBUF , BUF PNT 
8 004725 104201 000017 MOV #F6,R1 
9 004727 CALL PAGE 
10 004731 104209 000200 002163 MOV #128. ,PCNT 
11 004734 1$: POP R4,R5 
12 004736 RETURN 


+ SAVE +: AND R4 

sEMPTY FCT 

YUP = DON'T GET BLOCK 
;POINT TO BUFFER 
OVERLAY A DOES IT 


2 EXEC 
;RESET 


COUNT 
: RESTORE R4 AND R5 


~“ 
& 
oO 


Stee 8S 


WUIWNRIRNN = 
oooo oooo 


PNAS NUI NWS 


ad ts bt WD ad —_ —2 
—b 
S 


WN SO@NOUR WN BOONNOUAWR— 
sessseessssesss 
SeecooooocesS 
RRRR RRRR RR 


wuiw 





UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 60 
L/RBN COMPUTE OVERLAY (G8) 


001636 


001567 


001577 


001562 
001601 


-SBTTL L/RBN COMPUTE OVERLAY (G8) 


THIS OVERLAY COMPUTES LBN AND RBN OF THE LAST TRACK ON LAST LBN CYLINDER 
AND COMPUTES THE PBN OF THAT LBN 


DMOVLY G8,START 


MOV #G8, CUROVL sFOR RECORDING 

MOV #SCR,RO zPOINT TO CHARACTERISTICS BLOCK 

CALL = NUML “GET NUMBER OF FIRST LBN ON LAST LBN CYL 
MOV (R4) , CURBN :GET LOW ORDER 

MOV (R4) ,HOLDBN SSAVE FOR LATER 

MOV 1(R4$,CURBN+1 [GET HIGH ORDER 

MOV 1(R4) ,HOLDBN+1 ‘SAVE FOR LATER 

CALL § NUMRBN :GET NUM OF FIRST RBN ON LAST LBN CYLINDER 
MOV (R4) , CURRBN [GET LOW ORDER 

MOV 1(R45, CURRBN¢1 'GET HIGH ORDER 

MOV (R4) ,HOLRBN sSAVE LOW FOR LATER 

MOV 1(R45 ,HOLRBN+? :SAVE HIGH FOR LATER 

CALL = LPBN :GET FAN OF FIRST SECTOR ON LAST TRACK 

C SETSIZ SSET UP 512/576 VARIABLES 


ALL 
RETURN 
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’ : 
¢ ; COMPUTE STARTING LBN ON LAST TRACK 
; : RO => CHARACTERISTICS BLOCK 
5 004057 104300 0016 $ 001410 NUMLBN: MOV LBNCYL, TEMP 3GET LOW ORDER NUM OF LBN CYLINDERS 
: 004 104300 001627 001411 MOV LONCYL#1, TEMP+1 [GET HIGH ORDER 
00466 103200 17 001411 BIC #HD. CLR, TEMP +1 ZCLEAR STARTING CYLINDER BITS 
8 004070 104204 001410 MOV i :DITT 
9 004072 104203 001630 MOV #LBNPCY,R3 [GET LON'S/CYLINDER 
10 004074 CALL —OMUL :GET FIRST LBN ON LAST CYLINDER 
11 004076 104641 000001 MOV 1(R4),R1 GET LAN 
12 004100 105301 002007 ADD ST.LBN,R1 ‘ADD STARTING LON TO GET ABSOLUTE LBN 
13 004102 100641 000001 MOV R1,1(R4) :STORE BACK 
14 004704 102200 020000 001703 BIT #MODE ,FLAG1 [WHAT MODE 
15 004107 BNE TIF SET THEN 576 
16 004111 104673 000011 MOV BNT12(RO) ,R3 ‘GET LBN/TRACK FOR 512 
17 004113 BR $ SSKIP 576 S 
18 004115 104673 000015 1$: MOV LBNT76(RO) ,R3 :GET LBN/TRACK FOR 576 
19 004117 103203 177400 2$: BIC #HIBYTE,R3 'CLEAR HIGH BYTE 
20 004121 104030 001403 MOV R3,DDUMMY SSTORE IT 
21 004123 114000 001404 CLR DDUMMY+1 SFOR STORE 
2 004125 104203 001403 MOV #ODUMMY ,R3 *LBN/TRACK 
23 004127 CALL DSUB [WANT LBN ON LAST TRACK 
24 004131 RE TURN 


SEQ 107 





UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 62 
L/RBN COMPUTE OVERLA Ee) | 

1 3 

5 ; COMPUTE STARTING RBN ON LAST TRACK IN LBN AREA 

; : RO => CHARACTERISTICS BLOCK | 
5 004133 104300 001626 001410 WUMRBN: MOV LBNCYL, TEMP 7GET LOW ORDER NUMBER OF LBN CYLINDER 
6 004136 104300 001627 001411 MOV LONCYL+1, TEMP+1 [GET HIGH ORDER 

004141 105200 170000 001411 BIC aH. cL TEMP +1 SCLEAR STARTING CYLINDER BITS 

8 004144 104204 001410 MOV x ré :DITTO 

9 904146 104203 001632 MOV SRENPCT RS [GET RBN'S/CYLINDER 

10 00415 CALL  DMUL :GET FIRST RBN ON LAST CYLINDER 

11 004152 104641 000001 MOV 1(R4),R1 [GET HIGH ORDER 

lg 004154 105301 002010 ADD ST.RBN,R1 ZADD TO GET ABSOLUTE LBN 

13 004156 100641 000001 MOV R1,1(R4) SSTORE BACK 

14 004760 104673 04 RBNTRK (RO) ,R3 'GET RBN/TRACK 

15 004162 103203 177600 BIC #HIIBYTE RS ‘CLEAR OUT GARBAGE 

16 004164 104030 001403 R3,DDUMMY SSTORE IT 

17 004166 114000 001404 CLR DDUMMY +1 [FOR STORE 

18 004170 104203 001403 MOV #DDUMMY ,R3 ‘WANT LAST TRACK 

19 004172 CALL DSUB :GET IT 
20 004174 RETURN 





UDAFS2 = UDA=52 FORMATTER DMACR 
L/RBN COMPUTE OVERLAY (G8) 


X04.01 23-AUG-82 13:14:22 PAGE 63 


[Pee Ge Ge te 


LENT12(RO) ,R3 
LBNT76(RO) ,R3 
#HIBYTE ,R3 


So 


GER RERGK KEK 


— NWUW 
* So 


DODONOVSWN —OVONOUSWN— 


Suni Sses3 


CONAULSWA— 
So 
Ww 


sss 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


wr 
RR F 
rs 

oo Ww 





:GET LOW ORDER 
GET HIGH ORDER 

; UBTRACT 

3GET HIGH ORDER 

3SUB_ STARTING LBN TO GET ABSOLUTE LBN 
zSTORE BACK 

WHAT MODE 

31F_SET THEN 57 

4 LBN/TRACK FOR 512 

GET LBN/TRACK FOR 576 


GET NUMBER OF TRACKS 
2GET RBN*S/TRACK 
Hows GARBAGE 


NUMBER OF RBN‘S 
:GET LOW ORDER CURRENT BLOCK NUMBER 
GET HIGH ORDER 

SUBTRACT STARTING 

sFOR ADD 

zADD TO GET PBN 

GET LOW ORDER 

zSTORE HIGH ORDER 
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; 

4 004301 
5 004303 
6 004306 
7 004310 
8 004313 
9 004315 
10 004320 
11 

12 

13 
14 004323 
15 004325 
16 004330 
17 004332 
18 004334 
19 004336 
20 004341 
21 004343 
22 004345 
23 004347 
24 
25 

26 
$f OO eet 
8 004353 
29 004355 
30 004356 
31 004360 
32 004362 
33 004364 
34 004366 
35 004367 
36 004370 
37 004372 
38 004373 
39 004374 
40 Be e78 
41 00437 
$$ 004400 
43 004402 
44 0044 


> 
An 
nse 
oo 
NO 


47 004412 


02 


SRr 


SSeRee 
2 ySSS3s 


=2 5 


272 
04 


273 
04 


coh ech at — = ee a eo 


; = 


303 
100173 


104200 


002134 


000400 


001703 
001606 
002171 
002124 


001410 


001403 


002171 


: SET UP 512/576 VARIABLES 
SETSIZ: MOV #SCR,RO 
BIT #MODE , FLAG1 
BEQ SETS1 
MOV SECT“. SECTRK 
CLR SECTRK+1 
MOV ASECSIB, SECSIZ 
MOV €S18-1, 
; SET UP END OF IMAGE POINTER 
v #SECT76,R3 
V #3, TEMP 
CLR TEMP +1 
MOV #TEMP,RG 
CALL  DMUL 
MOV # IMAGE , DDUMMY 
CLR DDUMMY +1 
MOV #DDUMMY , R3 
CALL OD 
MOV (R4) ,E IMAGE 
: INITIALIZE GOOD DATA BLOCK 
MOV #GDBLK,RO 
MOV DWRD,R2 
MOV R2, (RO)+ 
MOV #287. ,R4 
MOV FWRD,R1 
MOV SWRD.R 
MOV TWRD.R 
1$: MOV R1, (RO)+ 
DEC RG” 
BEQ 2$ 
MOV R2,(RO)+ 
DEC RG 
BEQ 2$ 
MOV R3,(RO)+ 
DEC Ra 
BNE 1$ 
2$: MOV EDC76,R3 
MOV R3, (RO) 
SETRET 
SETS12: #SECSI6,SECSIZ 


MOV 
SETRET: RETURN 


POINT TO CHARACTERISTICS 

3SET WHAT MODE 

IF Fe TkEAR THEN 512 MODE 

sUSE 576 TRACK SIZE 
sCLEAR HIGH ORDER 

SET UP SECTOR SIZE (576) 

;SET UP NEW COUNT FOR COMPARE XFC 


bs hl 
FOR MULT 
7FOR he 
SET UP FOR MULT 
GET = OF IMAGE BLOCK 
CLEAR HIGH BYTE 
3SET UP FOR ADD 
ADD TO GET ADDRESS 
;GET ADDRESS 


sPOINT TO GOOD BLOCK 

DIAGNOSTIC WORD 

STORE IT 

ELSE 576 = USE ektre s WORD COUNT 
;FIRST WORD OF P 


3SECOND WORD OF PATTERN 
; THIRD WORD OF PATTERN 


:DECREMENT COUNT 

sQUIT IF 0 

sSTORE IT 

:DECREMENT COUNT 
QUIT IF 0 

STORE IT 

;DECREMENT COUNTER 

REPEAT TILL DONE 

GET EDC 

sSTORE IT 


ETURN 
{SET UP SECTOR SIZE (512) 





se0 109 


UDAF52 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 65 
FCT DOWN-LINE LOAD OVERLAY (F3) 


1 .SBTTL FCT DOWN=LINE LOAD OVERLAY (F3) 
5 ; DOWNLINE LOADER FOR FCT 
5 004414 FDLL: OMOVLY F3,START ZOVERLAY #3 
g 004614 104200 000006 001636 MOV #F3, CUROVL ZOVERLAY #3 
8 004017 104200 000001 002164 MOV ’ SINIT COUNT TO 1 
9 004022 104300 002011 001573 MOV ST.XBN, CURXBN¢1 ZALSO INITIALIZE XBN COUNTER 
10 004025 104300 002011 001567 MOV ST.XBN, CURBN+1 THIGH ORDER 
11 004030 114000 001572 CLR CURXBN [LOW ORDER IS ZERO 
le 004032 114000 001566 CLR CURBN :DITTO 
13 004034 104207 002110 MOV #CONBLK,RO :POINT TO CONVERT BLOCK 
14 004036 104203 001525 MOV #SCR, :POINT TO CHARACTERISTICS 
15 004040 104632 000000 MOV CYLBN(R3) ,R2 [GET LBN CYLINDERS 
16 004042 100672 000000 MOV R2,V1(RO) :STORE IN CONVERT BLOCK 
17 004044 104632 000001 MOV CYLBN+1(R3),R2 :GET HIGH ORDER 
18 004046 100672 000001 MOV R2,V1#1(RO) SSTORE IT 
19 004050 104303 001606 MOV SECTRE RS [GET SECTORS/TRACK 
20 004052 100673 000004 MOV R3,V3(RO) ‘STORE IN CONVERT BLOCK 
21 004054 102200 002000 001702 BIT #BSTGS,FLAG ZIN BEST GUESS MODE ? 
22 004057 BNE NODLL :YUP = FIX UP FIRST BLOCK 
23 004 BR LOOP :START LOOP 
24 004063 104203 010000 NODLL: MOV #RDBUF ,R3 [POINT TO BUFFER 
25 004065 114008 CLR R2 ‘SET MEDIA MODE TO 0 (IN FORMAT) 
26 004 10013 MOV R2, (R3) : 3 
7 004 104204 177 MOV #SERNUM, RG :POINT TO SERIAL NUMBER 
8 004071 105203 $0000 ADD #FSER,RS [POINT TO ENTRY IN FCT BLOCK 
29 004073 104205 000004 MOV #4,R5 SINIT COUNTER 
30 004075 104242 9$: MOV (R4)+,R2 :GET WORD 
31 004076 100232 MOV R2, (RS) [STORE WORD 
32 004077 117405 DEC R5 SDECRMENT COUNTER 
33 004100 BNE 9$ [CONTINUE TILL DONE 
34 004 102 114002 CLR R2 [FOR INSTANCE NUMBER 
35 004103 104203 010000 MOV #RDBUF ,R3 SRESET POINTER 
36 004105 100632 000001 MOV R2, INST(R3) ZSTORE INSTANCE NUMBER IN BLOCK 
37 004107 101202 100000 BIS é :SET NO FCT AVAILABLE BIT 
38 004111 100632 000025 MOV R2,FCTFLG(R3) ZSTORE IT IN FCT INFO BLOCK 
39 004113 BR LOOPP2 :SKIP DLL STUFF 
40 004115 104205 001750 LOOP: MOV #OMBUF RS [POINT TO MAINT BUFFER 
41 004117 104303 002003 MOV FCMSG,R3 :GET DUP CODE 
42 004121 100153 MOV R3, (R5) ZSTORE IT IN MESSAGE 
43 004122 104303 001566 MOV CURBN,R3 [GET BLOCK NUMBER DESIRED 
44 004124 100653 000001 MOV R3,1(R5) SSTORE IT 
45 004126 CALL  SNOMNT RE 
46 004130 CALL RCVMNT SRECEIVE ANSWER 
47 0041132 104153 MOV (R5) ,R3 [GET STATUS WORD 
48 00413 BNE DONDLL [IF NOT ZERO THEN DONE 
49 004135 104650 000001 002105 MOV 1(R5) ,OVLBLK+1 [GET LOW HOST ADDRESS 
50 004140 104650 000002 002106 MOV 2(R5) ,OVLBLK+2 [GET HIGH HOST ADDRESS 
51 004143 104200 000401 002104 MOV #257. ,OVLBLK : R OF WORDS TO TRANSFER 
32 004146 104204 002104 MOV #OVLBLK,R4 [FOR OVERLAY ROUTINE 
53 004150 104203 010000 MOV #RDBUF ,R3 [POINT TO BUFFER 
54 004152 CALL OVRLAY :GET THE SECTOR 
55 004154 114005 LOOPP2: CLR RS [CLEAR WRITE ERROR COUNT 
36 004155 104050 001732 MOV R5,NEXT1 [CLEAR REPEAT COUNT 
57 004157 106200 000001 002164 CMP #1, COUNT ‘1S IT THE FIRST ONE ? 








pr os = UDA=52 FORMATTER DMA ; K04.01 23-AUG-82 13:14:22 PAGE 65-1 
T DOWN-LINE LO4D OVERLAY (F 


58 004162 
59 004164 
60 004166 
61 004170 
o¢ 004171 
63 004172 
64 004174 
65 poets 
66 00417 

67 004200 
68 004201 
69 004203 
70 004204 
71 sings 
Le; 004210 
73 004212 
74 004214 
75 sng 314 
76 004222 
77 004224 
78 004226 
79 004230 
80 004232 
81 004234 
82 004236 
83 004240 
84 Sk Ik: 
85 00424 

86 004245 
87 004247 
88 004251 
89 004253 
90 004255 
91 004257 
4 ones! 
93 004263 
94 004265 
95 004267 
96 004271 
97 004273 
98 004275 
99 004277 
100 004301 
101 004302 
106 004304 
103 004305 
104 004306 
105 poet 
106 00431 

107 004315 
108 004317 
109 004321 
110 seks t 
111 004325 
6 soho 
113 004331 
114 004333 
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001766 
010000 


000012 
000004 


ase 
szzs 8 


00000 
00201 
00000 


10$: 


LOOPP: 


WRITE1: 


1$: 


3$: 


LOOPP 
#DATE ,R4 
#RDBUF , oR3 


R 
R5, (R3) 
#FOAT,R3 
#4,R5- 
{Rade R2 
Re. (RS) 


10$ 


RS 
#RDBUF ,R2 
#SECS16,RO 


c 
R3,RW.EDC(R2) 
CURBN, TEMP 
CURBN+1, TEMP +1 
ATEMP RG 
1(R4).R1 


Ld : 
R3,RW. 
C 


ERRHND 
TMPTRY 


NO = SKIP THIS STUFF 

sPOINT TO SERIAL NUMBER 

;PO 0 wy ae 

FORMAT UPDATE 

ORMAT IN PROGRESS 

:POINT TO ENTRY IN FCT BLOCK 

s INIT COUNTER 

7GET WORD 

STORE WORD 

sDECRMENT COUNTER 

SCONTINUE TILL DONE 

ZCLEAR R5 (ERROR COUNTER) 

:POINT TO BUFFER 

SECTOR SIZE IN WORDS 

: TE EDC 

2GET LOW ORDER 

GET HIGH ORDER 

SUB 

GET HIGH ORDER 

;SUBTRACT STARTING XBN 
ORE BACK 


3ST 

:CONVERT AND EEK 

POINT to CO COMMAND BLOCK 
WRI OMMAND 


HEAD 
STORE IN WRITE BLOCK 
3GET DUMMY SDI POINTER 
T_IN COMMAND BLOCK 


7GET HEADER PREAMBLE 
sGET DATA PREAMBLE 
;GET PORT 


NUMBER 
sMAKE SURE ee toaten AT BLOCK 
sett NO REVECTORING 

WAIT FOR SECTOR PULSE 
SSECTOR site IN WORDS 
WRITE SECT 


on? 


WES = = TRY SOME RECOVERY 
ZINC by COUNT 


D0 RE 
GET CURRENT io. ar ceveny LEVEL 
31F NEGATIVE THEN FRIED 
21S THERE ONLY RECOVERY LEVEL 0 ? 

TO ISSUE it = JUST RETRY 


YES = NO NEED 
zTRY RECOVERY 
3FOR INIT 
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DOWN=L I 
115 004 
116 004337 
117 006341 
118 sot oh 
119 004342 
120 004344 
121 004346 
1 ¢ 004351 
123 004353 
is 004355 
136 006362 
137 Oocsee 
128 004366 
129 ng JA 
130 0043 
131 004375 
13 004400 
133 004402 
134 004403 
135 004405 
136 004413 
137 004416 
138 004421 
139 004424 
140 004426 
141 0044 
4§ 0044 
143 004435 
144 004440 
145 004442 
146 004444 
147 004445 
148 004447 
149 004451 
150 004453 
151 004455 
13¢ 004457 
153 004461 
154 0044 
155 00446 
156 004464 
157 004466 
158 004471 
159 004473 
160 004474 
161 004476 


117400 


104300 


= $3 
88 $8 


2 & 


MN SaSSISS 


OFF 
So Seats 
Vw -OWWWwY 


SEER FRG 
® 


_ 
N 
= 
os 


a oy ob aS nd ad dD te at oe 
Xs 


NE LO4D OVERLAY (F3) 


000015 


001702 


12$: 


DLLRT1: 


DLLRET: 
DONDLL : 


LOOP3: 


ERROR: 
DLERT: 


DEC 
BR 


RECTMP 
WRITE 


RS 
Sb. 


TRY 

RECON. RECTMP 
#CURBN,R 

aECTERS 3 

DA 

FCTCPY NEXT1 
FCTCPY,RS 

ERROR 

#BSTGS,FLAG 

DLLRET 

#NOLL, FLAG 

DLLRTI 

UPDATE 

COUNT 

CURXBN 

CURXBN, CUR 


» CURBN 
CURXBN+1 , CURBN+1 
FCTNPD, COUNT 


FCTCPY 
FCTFMT, COUNT 
#FCTAVL, FLAG 
#CR,RO 

FRCPY (ROD, R3 
#FCLR,R3 

R3 FCiCPY 
week 
#SECSI6,RS 
#RDBUF ,R4 


R3 
ane 


E RRMANT 





4+ 1+ eal IT 


zYUP = = COUNTER 
7 INCREMENT IT 


FOR RESET 
IGET RECOVERY LEVELS 
sFOR ADD 
sFOR ADD 
POINT TO NEXT COP 

+ THIS SECTOR > 

= WRITE NEXT FCT COPY 

‘ERROR ON EVERY WRITE ? 
2YUP_- BIG TROUBLE 

BEST GUESS ? 

:YUP - JUST WANT TO WRITE FIRST BLOCK 
ALL DONE 22? 

sYUP = EXIT 
3LET HOST wit STILL ALIVE 


GH ORDER 
zAT THE LAST NON-PAD ENTRY 
;DECREMENT - NO PAD ON LAST COPY 
;DONE ? 


[NOPE = DO NEXT SECTOR 
'SET FCT AVAILABLE 
*POINT To. CHARACTERISTICS BLK 


ORMATTING 
COUNT FOR ete INIT 
:POINT TO BUFFER 
ZINIT TO 0 

sCLEAR ONE WORD 
DEC COUNTER 

: CONTINUE TILL DONE 
: ET FLAG 

INUE 
GET XFC_ERROR CODE 

FCT WRITE ERROR 
TERROR RETURN 


~~ Lf” 


SEQ 113 
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.SBTTL RCT UPDATE OVERLAY (F4) 
‘ 004500 DMOVLY F4,START 
4 ; 
2 $ 
? : THIS OVERLAY UPDATES THE RCT WITH THE SECTORS 
: : IN THE ERRBUF BUFFER | 
10 : 
11 004014 104200 001636 RCTUPD: MOV #F4, CUROVL :GET OVERLAY 
iF 004017 104303 001565 MOV CURTRK,R3 'GET CURRENT TRACK 
13 004021 PUSH R SSAVE FOR RESTOR 
14 004022 104303 001604 MOV CYLNUM,R3 [GET LOW ORDRE CYLINDER 
15 004024 PUSH R ‘SAVE FOR REST 
16 004025 104303 001605 MOV CYLNUM+1,R3 [GET HIGH ORDER 
17 004027 PUSH R3 ‘SAVE FOR RESTORE 
18 004030 104300 001616 001712 MOV LBNLBN,HOLD ZGET LOW ORDER COUNT OF LBN'S | 
19 004033 104 001617 001713 MOV LBNLBN+1, HOLD+1 [GET HIGH ORDER | 
20 004036 104203 002160 MOV #TOTRCT,R3 [FOR SUBTRACT 
21 004040 104204 001712 MOV OLD, R4 :DITTC 
22 004042 CALL SUB :GET STARTING RCT LBN ! 
23 004044 104300 001707 002157 MOV ERRBUF ,UPDPNT [POINT TO ERROR BUFFER | 
004047 104302 002157 ROVER: MOV UPDPNT.R2 [GET POINTER TO BAD LIST 
25 004051 104120 001403 MOV (R2) ,DDUMMY 3GET LOW ORDER 
26 004053 104620 000001 001404 MOV —- 1(R2S ,DDUMMY +1 3GET HIGH ORDER | 
004056 102200 100000 001404 BIT #81715 ,DDUMMY+1 [1S IT AN RBN ?? 
8 004061 BEQ ROVER NO = REGULAR HASH 
004063 104201 177777 MOV #-1,R1 HASH FOR 
30 004065 103200 170000 001404 ROVER1: BIC #HD.CLR,DDUMMY+1 [CLEAR THE HEADER 
31 004070 104204 001403 MOV #DDUMMY.R4 [FOR HASH | 
32 004072 CALL ASH :FIND THE RCT ENTRY FOR CURRENT ERR BLOCK 
33 004074 104143 MOV (R4) R3 [GET BLOCK NUMB 
34 004075 105203 000002 ADD #2,R3 [ADD TO GET PAST FIRST 2 BLOCKS 
35 004077 100143 MOV R3, (RG) STORE 
36 004100 104030 002162 MOV R3,RCTCNT [FOR LATER PING-PONG 
37 004102 104203 001712 MOV #HOLD ,R3 [FOR ADD | 
38 004104 CALL DADD :T0 GET LON OF RCT BLOCK 
39 004106 104040 001740 MOV R4 BUF PNT [STORE POINTER TO BLOCK NUMBER 
40 004110 104201 55 MOV #Hi,Ri [RCT READ OVERLAY 
41 004112 CALL _——~ PAGE D0 
4¢ 004114 104205 013477 MOV #RCTBUF RS [POINT TO BUFFER 
43 004116 104303 001410 MOV OF FSET,R3 [GET OFFSET 
44 004120 105035 ADD R3,R :POINT TO HIT ENTRY 
45 004121 104308 002157 MOV UPDPNT,R2 SRESTORE POINTER 
46 004123 10462 1 MOV 1(R2),R3 [GET THE HEADER 
47 004125 103203 007777 BIC #LO,R [CLEAR ALL BUT HEADER 
48 004127 106203 110000 CMP #HD.BAD,R3 [1S IT A BAD RBN ? | 
49 0046131 BNE NOTR [NOPE = CHECK FOR PRIMARY 
50 004133 104650 000000 001405 MOV O(R5) , TEMP2 [GET LOW ORDER CURRENT RESIDENT 
51 004136 104650 000001 001406 MOV 1(R5). TEMP2+1 [GET HIGH ORDER 
3 004141 103203 170000 BIC #HD.CLR,R3 [CLEAR HEADER 
53 004143 101203 940000 BIS RC.UNU,R3 [MARK AS UNUSUABLE 
54 004145 103203 0077 BIC a R3 [CLEAR LOW ORDER 
55 004147 100653 MOV R3,1(R5) 7STORE IT BACK 
56 004151 114005 CLR R “CLEAR FOR STORE 
57 004152 10015 MOV R3,(R5) [CLEAR LOW ORDER 


Kk 9 ] 
SEQ 114) 
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58 004153 102200 020000 001406 BIT #61113, TEMP2+1 zANY THING DISPLACED 22? | 
59 004156 BEQ BOTTOM [NO = NO NEED TO PING-PONG 
60 904160 CALL  RCTWT [WRITE UT BLOCK 
61 0041 CALL § PNGPG ‘FIND IT A NEW 
62 004164 104204 013477 MOV #RCTBUF RS [POINT TO BUFFER 
6 004166 105054 ADD R5,R [ADD OFFSET 

64 00416 104208 001405 MOV #TEMP2,R2 :POINT TO OLD RESIDENT 

65 004171 10412 MOV (R2) RS :GET LOW ORDER 

£6 004172 100148 MOV R3, (R4) [PUT IT IN 

67 004173 104623 000001 MOV 1(R2) ,R3 [GET HIGH ORDER 

68 004175 103203 170000 BIC #HD.CLR,R3 ‘CLEAR HEADER 

69 004177 101203 030000 BIS #RC.SND.R3 ZMARK AS SECONDARY 

70 004201 100643 000001 MOV R3,1(R4S “STORE IT 

71 004203 BR BOTTOM :GO TO BOTTOM OF LOOP 

72 004205 106203 050000 NOTR: CMP #HD.PRV,R3 ‘PRIMARY REVECTOR ?? 

73 004207 BNE SECNDY [NO = TREAT AS SECONDARY 

74 004211 104653 1(R5) ,R3 [GET RCT HEADER 

75 004213 103203 007777 BIC #LO,R ZCLEAR ALL BU'T HEADER 

76 004215 106203 000000 CMP #RC.FRE,R3 tIS IT FREE ?? 

77 004217 BNE SWAP [NO = SWAP ENTRIES 

78 004221 104123 MOV (R2) ,R3 [GET LOW BLOCK NUMBER 

79 004222 100153 MOV R3, (RS) ‘STORE IN RCT 

80 004223 104623 000001 MOV 1(R2) ,R3 ‘GET HIGH ORDER 

81 004225 107303 002007 SUB ST.LBN,R3 SSUBTRACT STARTING LBN BITS 

82 004227 103203 170000 BIC #HD.CLR,R3 [CLEAR HEA 

83 004231 101203 020000 BIS #RC.PRV,_RS “SIGNAL PRIMARY REVECTOR IN RCT 

84 004233 100653 000001 MOV R3,1(R55 sSTORE IN RCT 

85 004235 BR BOTTOM :GO TO BOTTOM OF LOOP 

& 004257 104650 000000 001405 SWAP: MOV 0(R5), TEMP2 [GET LOW ORDER CURRENT RESIDENT 

87 004242 104650 000001 001406 MOV 1(R5). TEMPO+1 [GET HIGH ORDER CURRENT RESIDENT 

88 004245 104123 MOV (R2) ,R3 [GET LOW ORDER NEW RESDENT 

89 004246 100153 MOV R3, (R5) [PUT IN RCT 

90 004247 104623 000001 MOV 1(R2),R3 [GET HIGH ORDER NEW RESIDENT 

91 004251 107303 002007 SUB ST.LBN,R3 SSUBTRACT STARTING LBN BITS 

92 004253 103203 170000 BIC #HD.CLR,R3 'CLEAR THE HEADER 

93 004255 101203 020000 BIS #RC.PRV._RS [SET AS PRIMARY 

94 004257 100653 000001 MOV R3,1(R55 :PUT IN RCT 

95 004261 CALL RCTwT SWRITE OUT PRIMARY BLOCK 

96 004263 104202 001405 MOV #TEMP2,R2 ‘POINT TO OLD RESIDENT 

97 004265 SECNDY: CALL § PNGPG ‘FIND RCT ENTRY FOR SECONDARY 

98 004267 104204 013477 MOV #RCTBUF RG :POINT TO BUFFER 

99 004271 105054 ADD R5,_R4 TADD OFFSET 

100 004272 104123 MOV (Rd) ,R3 [GET LOW ORDER NEW ENTRY 

101 004273 100143 MOV R3, (R4) [PUT IN RCT 

102 004274 104623 000001 MOV 1(R2) ,R3 :GET HIGH ORDER NEW ENTRY 

10 004276 107303 002007 SUB ST.LBN,R3 :SUBTRACT STARTING LBN BITS 

104 004 103203 170000 BIC #HD.CLR,R3 [CLEAR HEADER 

105 004302 101203 030000 BIS #RC.SND,R3 [FLAG AS SECONDARY 

106 004304 100643 000001 MOV R3,1(R45 :STORE IN RCT 

107 004306 BOTTOM: CALL RCTwT sWTIR OUT RCT BLOCK 

108 004310 105200 000002 002157 ADD #ERLEN,UPDPNT :POINT TO NEXT ERROR SECOTR 

109 004313 117400 001741 DEC REVCNT SDECREMENT IT 

110 004315 BNE ROVER [NOT DONE = DO NEXT SECTOR 

111 004317 POP R [GET HIGH ORDER CYL 

112 004 320 104030 001605 MOV R3,CYLNUM+1 SRESTORE IT 
113 004322 104030 001552 MOV R3, ISEEK+2 :PUT IN SEEK COMMAND 
114 004324 POP R3 GET LOW ORDER | 
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001702 


001553 
001703 


001552 






sPUT IN SEEK COMMAND 
+} TRACK _NUMBER 
STORE IT 


NOSEK 
CURGRP, ISEEK+3 TRESTORE GROUP TO SEEK 
#MODE , FLAG : ARE WE IN 576 MODE ? 


NG 
ELSE SET 576 MODE IN SEEK 
GET BACK TO RIGHT CYLINDER 


SEQ 115, 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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; 

4 004360 115001 

5 004361 

g 004363 104207 001525 

004365 

8 004367 104200 000200 001410 
9 004372 114000 001411 

10 sof Le 104300 001634 001403 
11 377 104300 001635 001404 
12 004402 104204 001403 

13 004404 104203 001410 

‘3 004406 

16 004410 104131 

17 004411 105011 

18 004412 100131 

19 ert 
20 004415 104140 001634 

21 004417 104640 000001 001635 
22 004422 107300 002010 001635 
23 004425 


GHASH: 


UHKIP: 


UHKIP1: 


COMPUTE RCT ADDRESS FOR GIVEN LBN 


TST R1 :NEED TO COMPUTE PRMARY RBN ? 
BMI UHKIP1 :NO = SKIP 
MOV #SCR,RO ‘POINT TO cUBUNIT CHARACTERISTICS 
CALL  PRIMRB [COMPUTE PRIMARY RBN 
MOV #128., TEMP [DIVIDE BY 128 TO GET BLOCK NUMBER 
CLR TEMP+{ ‘FOR STORE 
MOV REVRBN, DDUMMY [GET PRIMARY RBN 
MOV REVRBNG1 ,DDUMMY +1 [GET HIGH ORDER 
MOV #0DUMM 3FOR DIVIDE 
MOV #TEMP, ns TTO 
CALL ODDIV :DDUMMY=RCT BLOCK NUMBER 
MOV (R3),R1 [GET OFFSET 
ADD R1,Ri sMULTIPLY BY 2 
V R1,(R3) ‘STORE BACK 
RETURN 
MOV (R4) ,REVRBN “FORDIVIDE SETUP 
MOV 1(R45,REVRBN#1 VITTC 
SUB ST.RBN, REVRBN#1 :SUBTRACT STARTING RBN BITS 


BR UHK IP :D0 DIVIDE 


ee CC 


SEQ 116 


_ 
| 
| 


| 
| 
| 


SEQ 117) 
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1 3 
é : WRITE AN RCT BLOCK | 
: j 
4 004527 114005 RCTWT: CLR R5 ZCLEAR ERROR OCUNTER | 
5 004430 104050 0017 MOV R5,NEXT1 ZRESET NEXT COUNTER 
6 004432 104204 00140 MOV #DDUMMY , R4 ‘POINT TO BLOCK 
7 004434 104203 001525 RCTWLP: MOV A ZPOINT TO CHARACTERISTICS 
8 004436 102200 020000 001703 BIT #MODE ,FLAG1 ‘WHAT MODE 
9 004441 BNE SIF SET THEN 576 
10 004443 104632 000011 MOV LBNT12(R3) ,R2 :GET LBN/TRACK FOR 512 
11 004445 BR :SKIP 576 SETUP 
12 004447 104632 000015 1$: MOV LBNT76(R3) ,R2 :GET LBN/TRACK FOR 576 
13 004451 103202 177400 2s: BIC #HIBYTE ,R2 ZCLEAR HIGH BYTE 
14 004453 207 002110 MOV #CONBLK RO ZPOINT TO CONVERT BLOCK 
15 004455 72 000 MOV R2,V3(RO) ZFOR CONVERT 
16 004457 04632 000001 MOV STCYL(R3) ,R2 sSTARTING CLYLINDER 
17 004461 103202 007777 BIC #LO,R ZCLEAR REST OF WORD 
18 004463 100672 000001 MOV R2,V1+1(RO) 7 STORE 
19 004465 114002 CLR :CLEAR FOR STORE 
20 004466 100672 000000 MOV R2,V1(RO) :LOW ORDER ALWAYS 0 
21 004470 CALL  CVTSK :CONVERT AND SEEK 
22 004472 104202 013477 MOV #RCTBUF ,R2 [POINT TO BUFFER 
23 004474 104307 002171 MOV SECSIZ,RO ZSECTOR SIZE IN WORDS 
24 004476 CALL (CE :COMPUTE EDC = RETURNED IN R3 
25 004500 102200 020000 001703 BIT #MODE ,FLAG1 SWHAT MODE ARE WE IN 
26 004503 BEQ 5 ZIF CLEAR THEN 512 
4 004505 100623 000440 MOV R3,RW.E76(R2) :STORE IT 576 BUFFER 
8 004507 BR SSKIP 512 SETU 
29 004511 100623 000400 3$: MOV R3,RW.EDC(R2) :STORE IT 512 BUFFER 
30 004513 104207 001373 4$: MOV LK, :POIN COMMAND BLOCK 
31 004515 100672 000002 MOV R2,RW.BUF CRO) SSTICK BUFFER PTR IN COMMAND BLOCK 
32 004517 104203 122400 MOV #URCMD,R3 [GET WRITE COMMAND 
33 004521 104302 001565 MOV CURTRK,R2 :GET CURRENT TRACK 
34 004523 101023 BIS R2,R3 :SET TRACK FOR WRITE 
35 004524 100673 000005 MOV R3,RW.CMD(RO) :STORE IN COMMAND BLOCK 
36 004526 104143 MOV ),R3 :GET LOW ORDER HEADER 
37 004527 100673 000003 MOV R3,RW.LOW(RO) ZSTORE IN WRITE BLOCK 
38 004531 104643 000001 MOV 1(R4)R3 :GET HIGH 
39 004533 105303 00200 ADD ST.LBN,R3 ZADD STARTING LBN BITS 
40 004535 101203 000000 BIS #HD.LBN,R3 :SET HEADER 
41 004537 100673 000004 MOV R3,RW.HI (RO) [STORE IN WRITE BLOCK 
42 004541 104203 001400 MOV #HSLIM-1, :GET DUMMY SDI POINTER 
43 004543 100673 000006 MOV R3,RW.DUM(RO) PO N COMMAND 
44 004545 104303 002005 WRITE2: MOV HPREA,R3 :GET HEADER PREAMBLE 
45 004547 104304 002006 MOV DPREA,R4 [GET DATA PREAMBLE 
46 004551 104302 001412 MOV UNIT,R :GET PORT NUMBER 
47 004553 104207 001373 MOV #WRBLK,RO SMAKE SURE POINTING AT BLOCK 
48 004555 060012 XFC SIP sWAIT FOR SECTOR PULSE 
49 004556 104302 002171 MOV SECSIZ,R2 SSECTOR SIZE 
50 004560 060003 XFC WRITE :WRITE SEC 
51 004561 115001 TST sANY E 
52 004562 BEQ RWGD NOP 
53 004564 106300 002165 002167 CMP RETRY, TMPTRY sMAX ? 
54 004567 BEQ 1$ ZYES = TRY SOME RECOVERY 
55 004571 115400 002167 INC TMPTRY SINC RETRY COUNT 
56 004573 BR WRITE2 [DO RETRY 
57 004575 104303 002170 1$: MOV RECTMP,R3 :GET CURRENT ERROR RECOVERY LEVEL 









B 10 
SEQ 118 





RCT UPDATE OVERLAY (F4) 


58 004577 
59 004601 115000 002166 





g 
3 
g 


61 00460 

o¢ 004607 114000 002167 
63 004611 117400 002170 
64 004613 

65 004615 

66 004615 115405 

67 004616 115400 0017 
68 004620 114000 00216 
69 neg 104300 002166 
70 004625 104204 00140 
71 004627 104203 172 
Le: 004631 

73 004633 106300 001731 
74 004636 

75 004640 106305 001731 
76 004642 

77 004644 104303 001732 
78 004646 

79 004650 104204 001403 
80 004652 104203 001727 
81 004654 

82 004656 117400 001732 
a7 004660 92 

85 Qocees 

86 00466 

87 004 

88 004 


002170 


001732 


3$: 


2$: 
RWGD: 


RCXLP: 


RTDON: 


RCTERR: 
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RS 

at 

MPTRY 

RECOV RECTMP 

#DDUMAY , R4 
#RCTFMT.RS 
DADD 
FCTCPY ,NEXT1 
RCTWLP 
FCTCPY,RS 
RCTERR 
NEXT1,R3 
RTDON 
#ODUMMY ,R4 
+S ee 


ERRMNT 


31F NEGATIVE THEN FRIED 


318 TH HER E ONLY tO teen LEVEL 0 ? 
ED TO ISSUE IT = JUST RETRY 


: DECREMENT IT 

YUP = INCREMENT COUNTER 
S INCREMENT IT 

[FOR RESET 
iGET RECOVERY LEVELS 

{FOR A ADD 

[POINT TO NEXT COPY 

[DONE THIS SECTOR ? 

7NO = WRITE NEXT FCT copy 
TERROR ON EVERY WRITE ? 
:YUP = BIG TROUBL 

ZANY REAPEATS ? 
:T0 GET IT BACK 
DITTO 
3SuUB IT 
[REPEAT 
SLET HOST KNOW STILL ALIVE 


sXFC ERROR CODE 
:RCT WRITE ERROR 
ERROR QUIT 














; 
4 00467. 
5 00467 
§ 004675 
sng 14 
8 004700 
9 004701 
10 004702 
11 004704 
\¢ 004706 
13 004710 
14 004712 
15 004714 
16 004716 
17 004720 
18 ones 
19 00472 
20 004724 
21 004725 
22 004727 
23 004731 
24 004733 
25 
26 
sf 
8 
29 
30 004735 
31 004737 
32 004741 
33 004743 
34 004744 
35 004745 
36 004747 
37. 004751 
38 004753 
39 004755 
40 004757 
41 004761 
4g 004763 
43 004765 
44 004767 
45 004771 
46 004774 
47 004777 
48 
49 
50 005001 
51 005002 
26 005004 
53 005006 
54 005007 
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SEARCH FOR OPEN ENTRY IN RCT 


PUSH = R2 sSAVE R2 

CLR WRFLG SCLEAR WRAP FLAG 

CLR : LOP SET 

MOV OFFSET R3 :GET OFFSET 

MOV R3,R ‘MOV OFFSET INTO BUFF POINTER 
ADD R2.R5 ‘ADD FLOP VALUE 

BIT #B1TB,RS [PAST ONE END (OR BOTH) 

BNE XFLIP [YUP = FLIP OTHER DIRECTION 
MOV RCTBUF+1(R5),R1 'GET HEADER CODE 

BIC #.0,R1 [CLEAR LOW 

CMP #RC.NUL,R1 [END OF RCT ? 

BEQ XEORCT SYUP = WRAP TO FIRST BLOCK 
CMP #RC.FRE,R1 TFREE ? 

BEQ XPRET sYUP = ALL DONE 

MOV R2,R5 [GET FLIP VALUE 

CLR R2 

SUB R5,R2 ZNEGATE IT 

BMI XNOINC SIF NEGATIVE DON'T INC 

ADD #2,R :ADD TO NEXT VALUE 

CMP WSECSI6,R2 [DONE EVERY SLOT IN BLOCK ? 
BNE XAGAIN [NOPE = TRY NEXT ONE 


IN THIS SECTION THE BLOCKS ARE PING-PONGED BUT 


THE SEARCH WITHIN BLOCKS IS LINEAR FROM HIGHEST BUFFER 


ADDRESS TO LOWEST 


INC RCTCNT ZINC TO NEXT ONE 

MOV RCTCNT,R3 [FOR STORE 

MOV #DDUMMY , R4 [FOR ADD 

MOV R3, (RG) SSTORE BLOCK NUMBER 

CLR R3 [FOR RESETS 

MOV R3,1(R4) ‘CLEAR HIGH WORD 

MOV R3.OF FSET [MAKE OFFSET AT BEGINNING 
MOV #HOLD,R3 :POINT TO FIRST RCT LBN 
CALL DADD [GET LBN OF THIS RCT BLOCK 
MOV R4,BUFPNT ‘STORE BLOCK R 

MOV #Hi,R1 SREAD RCT OVERLAY 

CALL _—~PAGE : 

BR XNGBLK SSEARCH THIS BLOCK 

MOV WRFLG,R3 [GET WRAP FLAG 

BNE PERR TIF BEEN HERE ONCE THEN RCT FULL 
MOV #2, RCTCNT [FOR FIRST RCT BLOCK 

MOV #2. WRFLG ‘MAKE WRAP FLAG NON-ZERO 
BR XPNGRD ‘READ IT AND CONTINUE 

POP R2 ZRESTORE R2 

RETURN [SUCCESSFUL RETURN 

MOV #16.,R1 *RCT FULL 

CLR [NO SUBCODE 

CALL = ERRMNT TERROR RETURN 


a 


SEQ 119, 


| 
| 
| 
| 
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40 004120 
41 One ise 
4 004124 
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000055 
001740 


001585 


007777 
002110 
000001 


000000 
020000 
000011 


000015 
177400 
000004 
001373 

1400 


000003 
000001 
002007 
000004 
013477 


0134 

001365 
000005 
001373 
100000 
001412 
100000 


002171 


000001 
010000 


010000 


013477 


001636 


001703 


001374 


1$: 
2s: 


OCLOOP: 


READ11: 


101$: 
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‘ 


-SBTTL RCT READ OVERLAY (H1) 
DMOVLY. H1,START 


READ A BLOCK OF THE RCT 


PUSHA 
MOV #H1, CUROVL 
MOV BUFPNT RA 

CLR R 

MOV #SCR,R3 

MOV STCYL(R3) ,R2 
BIC #LO, 

MOV #CONBLK,RO 
MOV R2,V141(RO) 
CLR R 

MOV R2,V1(RO) 

BIT #MODE ,FLAG1 
mov LBNT12(R3) ,R2 
MOV LBNT76(R3) ,R2 
BIC #HIBYTE ,R2 
MOV R2,V3(RO) 
CALL CVTSK 

MOV #RDBLK,RO 
MOV #HSLIM=1,R3 
MOV R3,RW.DUACRO) 
MOV ), 

MOV R3,RW.LOW(RO) 
MOV 1(R4),R3 


ST.LBN,R3 
MOV R3,RW.HI (RO) 


MOV #RCTBUF ,R3 
MOV R3, RW. BUF (RO) 
MOV #RUCMD RZ 
MOV CURTRK.R1 

BIS R1, 

MOV R3,RW.CMD(RO) 
MOV #ROBLK,R 

MOV #ROCMD.R 

MOV R3, (ROS 

MOV UNIT R2 

BIS #B1T15,RO 
XFC SIP 

MOV SECSIZ,R2 

XFC READ 

TST R1 

BNE 1008 

MOV RW.ER1(RO) ,R3 
BIT #ECCE RS 


8 1 
BIC #ECCF ,ROBLK+RW.ER1 
CALL ecece 


100$ 
#RCTBUF ,R2 


sFOR INIT 

3GET POINTER TO BLOCK NUMBER 
;CLEAR ERROR COUNTER 
sPOINT TO CHARACTERISTICS 
3GET STARTING CYLINDER 
sCLEAR REST OF WORD 
sPOINT TO CONVERT BLOCK 
sSTORE FOR CONVERT 

$ STORE 

sey omee ALWAYS 0 

sIF SET THEN 576 

3GET LBN/TRACK FOR 512 
sSKIP 57 T 

3GET LBN/TRACK FOR 576 
;CLEAR HIGH BYTE 

sSTORE IN CONVERT BLOCK 


CONVERT RCT BLOCK NUMBER AND SEEK 


PREPARE FOR READ SECTORS 
0D 0 


POINTER TO DUMMY SDI BLOCK 
sSTORE IN C BL 

3LO ORDER BLOCK 

zSTORE IN aoe Cc BLOCK 


STORE IN READ CMD K_. 
sLOAD ADDRESS OF DATA BUFFER 

3 STORE COMMAND BUFFER 
sLOAD SDI READ 

3GET CURRENT HEAD NUMBER IN R1 
SET IT_IN COMMAND 

sSTORE BACK 

sMAKE SURE POINTING AT BLOCK 

; ONLY REQUEST 


sMARK_AS 

sSTORE IN CMD BLOCK 
2GET T 

3SET_NO REVECTORI 
WAIT FOR PULS 
sSECTOR SIZE _ IN WORDS 
sREAD 1 SECTOR 

3 ANY ORS ? 

zYES = TRY RECOVERY 
2GET ECC STATUS WORD 
sECC ERROR ? 

sNOPE = VERIFY EDC 
sCLEAR ECC ERROR BIT 
sCORRECT ECC 

sTEST FLAG 


2 UNCORRECTABLE 
sPOINT TO BUFFER 


SEQ soa 


real 


58 004160 
59 004162 
60 004164 
61 004167 
6¢ 004171 
63 004173 
64 004175 
65 004177 
66 004201 
67 904203 
68 004206 
69 004210 
70 004212 
71 sng th 
72 004216 
73 004220 
74 004222 
75 004224 
76 004226 
77 004230 
78 004232 
79 004234 
80 Oot See 
81 004235 
82 004237 
83 004241 
84 sng oh 
85 004245 
86 004247 
87 004252 
88 004254 
89 004254 
90 004256 
91 004261 
92 004262 
93 004264 
94 004266 
95 004270 
96 004272 
97 004274 
98 004276 
99 004300 
100 004301 
101 004303 
102 004305 
103 004307 
104 004310 
105 004312 
is 004314 
107 004316 
108 004320 
109 004322 
110 004324 
111 004326 
\N¢ 004330 
113 004332 
114 004334 


106623 
106300 
115400 
104303 
115000 


sssscessesesessess 
spetatererenteees 


So 
= 
for 


oo 
N 





002171 
020000 
000440 


000400 
002165 
002167 
002170 
002166 


002167 
002170 


001731 
001727 
002167 
002166 


002167 
002166 


001727 


001373 
122400 
001565 


000005 
013477 
000002 
go00e> 
002007 


001703 


002167 


002170 


002170 


4$: 
100$: 


1$: 


3$: 


2$: 


WRIT12: 


UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 70-1 
RCT READ OVERLAY (H1) 


104307 
102200 
106623 


seCeiz RO 
#MODE ,FLAG1 
RW.E76(R2) ,R3 
102$ 


100$ 

Wy E0C Che) AS 
RETRY, THPTRY 
1$ 


READ11 


RS 
FCTCPY,RS 
ORF TAL 
#RCTFMT,RS 
DADO 


TMPTRY 
RECOV,RECTMP 
OCLOOP 
TMPTRY 
eaten 
RLDONE 
#RCTFAT,RS 
DSUB 

CVTSK 
#WRBLK ,R 
#WURCMD ,R 
CURTRK ,R2 
R2.R 
R3,RW.CMD(RO) 
#RCTBUF 
R3,RW. 


(R4),R 
R3,RW.LOW(RO) 
1(R4) ,R5 


E 10 





SECTOR SIZE IN WORDS 
C TE EDC 


WHAT MODE ARE WE IN 
IF CLEAR THEN 512 


0.kK. ? 
YUP = CONSIDER GOOD 
NOPE = RETRY 

YUP = CONSIDER GOOD 
MAX ? 


YES = TRY SOME RECOVERY 
INC RETRY COUNT 


DO Y 
GET CURRENT ERROR RECOVERY LEVEL 
IF NEGATIVE THEN FR 


EL 0? 
EED TO ISSUE IT = JUST RETRY 


;TRY RECOVERY 


FOR INIT 
DECREMENT IT 
RETRY 


tg *e BAD COUNTER 


ALL OVER 
“SIZE OF TABLE - R4 => BLOCK NUMBER 


ADD TO POINT TO NEXT COPY 
RESET RETRY COUNT 

DITTO RECOVERY LEVELS 
BRANCH BACK 


FOR RESET 

GET RECOVERY LEVELS 

ANY ERRORS ? 

SIZE OF TABLE 

GET BACK TO PREVIOUS COPY 
CONVERT AND SEEK 

POINT TO COMMAND BLOCK 
GET WRITE C 

GET CURRENT TRACK 
SET TRACK FOR WRITE 
STORE IN COMMAND 


BLOCK 
POINT TO BUFFER 


sSTICK I 


N COMMAND BLOCK 
GET LOW ORDER HEADER 
STORE IN WRITE BLOCK 
GET HI #4 ORDER 
ADD STARTING LBN BITS 
STORE IN WRITE BLOCK 
GET Fn cae POINTER 


N COMMAND BLOCK 
GET HEADER PREAMBLE 
GET pale PREAMBLE 


T 
MAKE SURE POINTING At BLOCK 
SET NO REVECTORING 








SEQ 121 





| 
| 
! 
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SEQ 122 
UDAFS2 = UDAR52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 70-2 | 
RCT READ OVERLAY | 
{ 

115 004336 1 KFC SIP ;WAIT FOR SECTOR PUL SE 

116 004337 104302 002171 MOV —«SECSIZ,R2 SSECTOR SIZE IN WORD | 

117 004341 KFC WRITE [WRITE SEC TOR 

118 00454¢ 115001 TST R1 ZANY ERROR ? 

119 00434 BEQ 2$ :NO = »SKiP RETRY 

120 004345 106300 002165 002167 CMP RETRY, TMPTRY 

121 004350 BEQ 1$ [YES = TRY SOME RECOVERY 

122 004352 115400 002167 INC TMPTRY SINC RETRY COUNT 

123 004354 BR WRITI2 [D0 RETRY 

124 004356 104303 002170 1$: MOV RECTMP,R3 'GET CURRENT ERROR RECOVERY LEVEL 

125 004360 BMI 2$ TIF NEGATIVE THEN FRIED 

126 004362 115000 002166 TST RECOV 31S THERE ONLY RECOVERY LEVEL 0 ? 

127 004364 BEQ 3$ [YES = NO NEED TO ISSUE IT = JUST RETRY 

128 004366 CALL — ERRHND ZTRY RECOVERY 

129 006370 114000 002167 3S: CLR TMPTRY INIT 

130 004372 117400 002170 DEC RECTMP :DECREMENT IT 

131 004374 BR WRIT12 RETR 

132 004376 2s: 

133 004376 117405 DEC RS ;DEREMENT COUNTER 

134 004377 104300 002166 002170 MOV RECOV, RECTMP ?GET RECOVERY LEVELS 

135 004402 BR OCDONE ?SEE if ANY MORE TO DO 

136 004404 RLDONE: POPA 

137 004412 RETURN ALL DONE 

138 004414 104012 ORFTAL: MOV R1,R2 =XFC ERROR CODE 

139 004415 104201 000016 MOV #14.,R1 [RCT READ ERROR 

140 004417 CALL  ERRMNT TERROR RETURN 





6 10 

SEQ 123. 
UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 71 
OVERLAY (H1) | 


as 
A> 
es | 
Fath 
mn 


1 
; .SBTTL FCT=>RCT CONVERSION OVERLAY (FS) 

4 ; CONVERT FCT INTO RCT 

6 e 

2 004421 DMOVLY F5,START 

1 ; 

11 004014 ’ JMP START2 ;SKIP SUBROUTINES 


-ee 





H 10 
SEQ 124) 
UDAFS2 = UDA-52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 72 
FCT=>RCT CONVERSION OVERLAY (F5) 
1 3 
g ; COMPUTE RCT ADDRESS FOR GIVEN LBN 
4 004016 115001 HASH: TST R1 NEED TO COMPUTE PRMARY RBN ? 
5 00401 BMI HKIP1 K 
§ 004021 104207 001525 MOV #SCR,RO SPOINT’ TO. CUBUNIT CHARACTERISTICS 
7 004623 CALL PRIMRB [COMPUTE P' 
x 004025 104200 000200 001410 HWKIP: MOV #128. , TEMP DIVIDE BY 128 To GET BLOCK NUMBER 
9 004030 114000 001411 CLR TEMP+{ FOR STORE 
10 004032 104300 001634 001403 MOV REVRBN, DDUMMY :GET PRIMARY RBN 
11 004035 104300 001635 001404 MOV REVRBN+1 , DDUMMY +1 ‘GET HIGH ORDER 
12 004040 104204 001403 MOV #ODUMMY, RG :FOR DIVIDE 
13 004042 104203 001410 MOV #TEMP,RS :DITT 
1 004044 CALL ODDIV ZDDUMMY=RCT BLOCK NUMBER 
16 004046 104131 MOV (R3),R1 [GET OFFSET 
17 004047 105011 ADD R1,R1 SMULTIPLY BY 2 
18 004050 100131 Rov R1,(R3) ‘STORE BACK 
19 004051 RETURN 
20 004053 104140 001634 HKIP1: MOV (R4) ,REVRBN ZFORDIVIDE SETUP 
21 004055 104640 000001 001635 MOV 1(R4) ,REVRBN+1 C 
22 004060 107300 002010 001635 
23 004063 BR [D0 DIVIDE 


{ 
| 
} 
i 
| 
301 
SUB ST. REN, -REVRBN+1 Bo be 3 STARTING RBN BITS 
| 
| 
| 
| 
i 


I 10 






UDAFS52 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 73 
FCT=>RCT CONVERSION OVERLAY (F5) 









1 
: ; SEARCH FOR OPEN ENTRY IN RCT 
4 004065 114000 001705 PNGPNG: CLR WRFLG ZCLEAR WRAP FLAG 
5 004067 11400 PNGBLK: CLR SFOR FLOP SET 
6 004070 104303 001410 MOV OF FSET. RS :GET OFFSET 
? 004672 104035 PAGAIN: MOV R3,R ‘MOV OFFSET INTO BUFF POINTER 
8 004073 105025 ADD R2,R5 SADD FLOP VALUE 
9 004074 102205 000400 BIT #BiTB,RS ZPAST ONE END (OR BOTH) 
10 004076 BNE FLIP SYUP = FLIP OTHER DIRECTION 
11 004100 104651 013500 MOV RCTBUF+1(R5) RI [GET HEADER CODE 
1 004102 103201 007777 BIC #0, :CLEAR LOW ORDER STUFF 
13 004104 106201 100000 CMP #RC-NUL,R1 [END OF RCT ? 
14 004706 BEQ EORCT :YUP = WRAP TO FIRST BLOCK 
15 004110 106201 000000 CMP #RC.FRE,R1 SFREE ? 
16 004112 BEQ PRET ‘YUP = ALL DONE 
17 004114 104025 FLIP: MOV R2,R5 :GET FLIP VALUE 
18 004115 114002 CLR R2 
19 004116 107052 SUB R5,R2 :NEGATE IT 
20 004117 BMI NOINC SIF NEGATIVE DON'T INC 
21 004121 105202 000002 ADD 2,R2 sADD TO NEXT VALUE 
22 004123 106202 000400 NOINC: CMP #SECS16,R2 ZDONE EVERY SLOT IN BLOCK ? 
33 004125 BNE GAIN [NOPE = TRY NEXT ONE 
25 ; IN THIS SECTION THE BLOCKS ARE PING-PONGED BUT 
26 : THE SEARCH WITHIN BLOCKS IS LINEAR FROM HIGHEST BUFFER 
4 3 ADDRESS TO LOWEST 
29 004127 115400 002162 INC RCTCNT ZINC TO NEXT ONE 
30 004131 104303 002162 PNGRD: MOV RCTCNT,R3 [FOR STORE 
31 004133 104204 00140 MOV ADDUMMY ,R4 [FOR ADD 
32 004135 100143 MOV R3, (RG) [STORE BLOCK NUMBER 
33 004136 114000 001404 CLR DDUMMY +1 [FOR RESETS 
34 004140 114000 001410 CLR OFFSET SMAKE IT AT ZERO 
35 004142 104203 001712 MOV #HOLD,R3 [POINT TO FIRST RCT LBN 
36 004144 CALL DADD [GET LON OF THIS RCT BLOCK 
37 004146 104040 001740 MOV R4 BUF PNT :STORE POINTER TO BLOCK NUMBER 
38 004150 104201 000055 MOV avi, ZRCT READ OVERLAY 
39 004152 CALL _—~PAGE ; 
40 004154 BR PNGBLK [SEARCH THIS BLOCK 
41 004156 104303 001705 EORCT: MOV WRFLG,R3 [GET WRAP FLAG 
4¢ 004160 BNE SIF BEEN HERE ONCE THEN RCT FULL 
43 004162 104200 000002 002162 MOV #2,RCTCNT [FOR FIRST RCT BLOCK 
44 004165 104200 000002 001705 MOV #2. WRFLG [MAKE WRAP FLAG NON-ZERO 
43 004170 BR PNGRD [READ IT AND CONTINUE 
47 
004 RETURN ZSUCCESSFUL RETURN 
*RS=OF FSET 
004 MOV #16.,R1 SRCT FULL 
004 CLR [NO SUBCODE 
004 CALL  ERRMNT TERROR RETURN 


a 
SEQ 125) 


| 
| 
i 
' 
' 
' 


a 


———— cc 
10 

: SEQ 126) 

UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 74 

FCT=>RCT CONVERSION OVERLAY (F5) 


| 
1 3 
§ ; THIS OVERLAY UPDATES THE RCT WITH THE SECTORS 
4 3 IN THE ERRBUF BUFFER | 
6 : 
7 004201 START2: 
8 904201 104200 000014 001636 FCTRCT: MOV —«#FS, CUROVL GET OVERLAY NUMBER 
9 004204 104303 001565 MOV CURTRK,R3 [GET CURRENT TRACK 
10 004206 PUSH -R3 SSAVE IT 
11 004207 104303 001604 MOV CYLNUM,R3 7GET LOW ORDER CYLINDR 
1g 004211 PUSH [SAVE FOR RESTORE 
13 006212 104303 001605 MOV CYLNUM+1,R3 [GET HIGH ORDER 
14 004214 PUSH ZSAVE FOR RESTORE 
15 004215 04 001743 V #FCTCNT,R4 :FOR SUB 
16 006217 104203 002151 MOV #ONE ,R3 :DITTO 
17 006221 CALL DSUB : SUB To GET CURRENT FT BLOCK NUM 
18 004223 104143 MOV (R4) ,R3 
19 004224 PUSH = R3 ‘Por LATER RESTORE 
20 004225 114000 CLR FCTCNT SCLEAR FOR INIT 
21 004227 200 001740 MOV #RDBUF ,BUF PNT [POINT TO BUFFER 
22 004232 104201 MOV #F6,R1 SREAD A BLOCK OF THE FCT 
23 004234 CALL PAGE 3EXECUT E IT 
24 004236 104204 010000 MOV #RDBUF ,R4 MAKE SURE POINT TO IT 
25 004240 102200 020000 001703 BIT #MODE .FLAG1 “WHAT MODE ARE WE IN 
26 004243 BEQ 1$ TIF CLEAR THEN 512 MODE 
37 004245 104640 000020 001747 MOV 576(R4) ,MNCNT :GET COUNT oF -ySeD ENTRIES *576) 
8 004250 BR [SKIP 512 § 
29 004252 104640 000016 001747 1S: MOV €512(R4) ,MNCNT :GET COUNT OF sep ENTRIES 
30 004255 104200 000200 002137 2$: MOV #128. ,SECCNT SENTRIES IN A FCT SECTOR 
31 004260 104300 001616 001712 MOV LBNLBN, HOLD [GET LOW ORDER COUNT OF LBN'’S 
32 004263 104300 001617 001713 MOV LENLBN+1 ,HOLD+1 GET HIGH ORDER 
33 004266 104203 002160 MOV ATOTRCT,R3 [FOR SUBTRACT 
34 004270 104204 001712 #HOLD, R4 ‘DITTO 
35 004272 CALL [GET STARTING RCT LBN 
36 004274 104201 000022 MOV #F7,R1 =RCT INIT OVERLAY 
37 004276 CALL _——~ PAGE 31N IT RCT 
38 004300 104303 001747 MOV MNCNT,R3 T COUNT 
39 004302 BEQ TSP [QUIT IF NO ENTRIES 
40 004304 102200 020000 001703 BIT #MODE ,FLAG1 [WHAT MODE ARE 
41 004307 BEQ FBEGIN 7512 MODE = NO ADJUSTMENT 
42 004311 105300 001723 001743 ADD FCTSUB,FCTCNT :POINT TO 576 T 
43 004314 104200 010000 001740 FBEGIN: MOV #ROBUF ,BUF PNT *POINT TO BUFFER 
44 004317 104201 000017 MO #F6,R1 3FCT READ OVERLAY 
45 004321 CALL PAG 
46 004323 104200 010000 001742 MOV #RDBUF ,FCTPTR iMAKE SURE POINT TO TI 
47 004326 104 00174 MOV FCT PTR. “Ra USE 
48 004330 104140 00156 FBEG2: MOV RPBN :GET LOW ORDER PBN 
49 004332 104640 000001 001564 MOV 1 CRAS CURPBNET GET HIGH ORDER 
30 004335 104201 000044 MOV #65 Ri ZQVERLAY 10 CONVERT FORM PBN TO OTHER BN 
52 004341 104303 567 MOV CURBN+1,R3 [GET HIGH ORDER CONVERTED BLOCK NUM | 
53 004343 103203 007777 BIC #L0,R3 :CLEAR ALL BUT HEADER 
54 004345 106203 CMP #HD.LBN,R3 71S IT AN LBN ? | 
55 004347 BNE [NO = SKIP DOWN 
56 004351 104203 001566 MOV #CURBN,R3 [FOR COMAPRE 
57 004353 104204 001576 MOV #HOLDBN, R4 “DITTO 





K 10 


UDAF52 = UDA-52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 74-1 
FCT=>RCT CONVERSION OVERLAY (F5) 
58 004355 CALL DCMP i1N RCT 2? 
59 004357 BPL xvZ1 
60 004361 104204 001566 MOV #CURBN,R4 :POINT TO BLOCK NUMBER 
61 004363 CALL 4H OMPUTE RCT ENTRY 
62 004365 106143 MOV (R4) R3 SGET RCT BLOCK 
63 004366 105203 000002 ADD #2,R3 D TO GET BY FIRST 2 BLOCKS 
64 004370 10014 MOV R3,(R4) STOR E BACK 
65 004371 104030 002162 MOV R3,RCTCNT :SAVE FOR LATER PNGPNG 
66 004373 104203 001712 MOV #HOLD ,R3 ‘FOR ADD 
67 004375 CALL _DADD :T0 GET LN OF RCT BLOCK 
68 004377 104040 001740 MOV R4,BUFPNT [STORE POINTER TO BLOCK NUMBER 
69 004401 104201 55 #H1,R1 :RCT READ OVERLAY 
70 004403 PAG SEXECUTE IT 
71 006405 104205 013477 #RCTBUF RS ;POINT TO BUFFER 
72 004407 104303 001410 OFFSET,R OFFSET 
73 004411 105035 3,R5 :POINT TO ENTRY 
74 004412 104653 1(R5) ,R3 [GET HIGH ORDER 
75 004414 103203 007777 0,R3 [CLEAR ALL BUT HEADER 
76 004416 106203 #RC.FRE,R3 71S IT FREE ? 
77 004420 BEQ LIT SYES = FILL iT 
78 004422 106203 040000 CMP #RC.UNU,R3 ; UNUSABLE RBN ? 
79 004424 BEQ BAD REN :YES = MUST wee SECONDARY 
80 004426 104150 001405 MOV (R5), TEMP2 TELSE SWITCH 
81 004430 104650 000001 001406 MOV 1eR55. i THIGH ORDER 
82 004433 104303 001566 MOV CURBN,R3 :GET NEW RESIDENT LOW ORDER 
3 004435 100153 MOV R3, (R5) :STORE IN RCT 
004436 104303 001567 MOV CURBN«| R3 :GET HIGH ORDER 
85 004440 107303 002007 S ST.LBN,R3 :SUBTRACT STARTING LBN BITS 
86 004442 103203 170000 BIC #HD.CLR,R3 :CLEAR THE HEADER 
87 004444 101203 020000 BIS #RC.PRV.RS :MARK AS PRIMARY 
88 004446 100653 000001 MOV R3,1(R55 SSTORE IT 
89 004450 102200 000400 001702 BIT #DLL,FLAG [DID WE CREATE THE FCT ? 
90 00445 BEQ FCTSKP ZNO = THEN DON'T CHANGE IT 
91 004455 104302 001742 MOV FCTPTR,R2 [GET POINTER TO CURRENT . FCT BLOCK POS 
92 004457 104623 00000 MOV 1(R2) ,R3 [GET HIGH ORDER FCT ENT 
93 004461 101203 100000 BIS #PRAY.R3 [MAKE IT SECONDARY 
94 004463 100623 000001 MOV R3,1(R2) ZSTORE IT BACK 
9 004465 106202 010000 CAP rere 31S THIS, THE FIRST ENTRY IN THE BLOCK 
97 004471 104300 001403 001572 MOV DDUMMY , CURXBN :SAVE RET BLOCK NUMBER 
98 004474 104300 001404 001573 MOV DURA vEURXBNS1 :DITT 
99 004477 CALL  FIXFCT TYUP = o cor SOME GYRATIONS TO DO 
100 004501 104300 001572 001403 MOV CURXBN, DDUMMY TRESTORE RCT BLOCK NUMBER 
101 004504 104300 001573 001404 MOV CURXBN1 ,DDUMMY+1 [DITTO 
102 004507 BR FCTSKP : THEN CONTINUE ON 
103 004511 107202 000001 FCTSK1: SUB 2 [POINT BACK 
104 004513 10412 MOV (R23) R3 ‘GET HIGH ORDER 
105 004514 103203 100000 BIC #PRAYR3 :CLEAR PRIMARY IF SET 
106 004516 100123 MOV R3, (RO) € IT 
107 004517 FCTSKP: CALL  RCTWRT “WRITE OUT CHARNGED BLOCK 
108 004521 CALL § PNGPNG [FIND IT A NEW HOME 
109 004523 104204 013477 MOV #RCTBUF RG [POINT TO BUFFER 
110 004525 105054 ADD R5,R4 SADD OFFSET 
111 004526 10420 001405 MOV aTENP2 R2 [POINT TO OLD RESIDENT 
Ie 004530 10412 MOV Re) RS 3GET LOW ORDER 
113 004531 100143 MOV (Ra) PU iT IN 
114 004532 104623 000001 MOV Feast a3 ?GET HIGH ORDER 
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UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 74-2 


FCT=>RCT CONVERSION OVERLAY (F5) 


115 setts] 
136 0045 
117 00454 
118 004 
119 004544 
130 004546 
121 004550 
\¢¢ 004552 
123 004554 
124 004556 
125 004560 
126 004562 
127 004564 
128 004565 
129 004567 
130 004570 
131 004572 
136 004574 
133 004576 
134 004600 
135 004602 
136 004604 
137 004606 
138 004610 
139 004611 
140 004613 
141 004615 
142 004617 
143 004621 
144 004623 
145 004625 
146 ppeeee 
147 004631 
148 004634 
149 004637 
150 004641 
151 004643 
13¢ 004645 
153 004647 
154 004650 
155 004651 
156 004653 
157 004655 
158 004657 
159 004660 
160 poets 
161 00466 
162 004664 
163 004 
164 004670 
165 004672 
166 004674 
167 004677 
168 004701 
169 004703 
170 004705 
171 004706 


103, 03 
10120 
10064 


106203 


S 
Ce 
Wa 


S FE PESSE RESES 
$ SB Seas 


RGRE RE FE 
z 


So 
Ww 
m 


oo 
—_ 
Nm 
UWW WWW 


Ok eed td ed 
SOw—w 

4 MRMMAO 

moooum 


S 


RSRRAR 
O—=MWOn 
OFS 


—w 


Mr 


kk at td td ot ot td ot 
2S? oooo 
~“ ~ 
NM—w fh 
OoNoo S$ Soowve&r 
WWnong WWWIWIWIWIWWIN S&S 


So 
ve 


NOLBN: 


001702 


#HD.CLR,R 
#RC.SND,R 
R3, 1(R45 


xv 
#HD.RBN,R3 
XYZ 


#=i,R 
#CURBN,R4 
HASH 
(R4),R3 
#2,R3 

R3, (RG) 
R3,RCTCNT 
#HOLD,R 


DAD 


D 
R4,BUFPNT 
#Hi,R1 


PAGE 
#RCTBUF RS 
OF FSET, R4 
1(R5) ,R3 
#LO,R 
#RC_.FRE,R3 
RRPL 
#HD.CLR,R3 
#RC -UNU RS 


EMP2 
EMP2+1 


2a 


5 1cR4S 
#0LL,FLAG 
FCTSLP 
FCTPTR.R2 


(RO), R3 
#PRMY,R3 


CLEAR HEADER 
aa 


iSKIP_ 10 END 
[NO = THEN DON'T CARE ABOUT IT 
GET HEADER 


; oc 

POINT TO BLOCK R 
:GET RCT BLOCK AND OFFSET 
GET RCT BLOCK 

3ADD ge GET BY 2 BLOCKS 


7S K 
SAVE FOR LATER PNGPNG 
[TO GET LBN OF RCT BLOCK 


STORE POINTER TO BLOCK NUMBER 
:RCT READ OVERLAY 


[POINT TO BLOCK 
:GET OFFSET 


POINT TO ENTRY 
GE GH 


21S IT F : 

2NO = RELOCATE CURRENT RESIDENT 
CLEAR THE HEADER 

;MARK AS UNUSABLE 

BRANCH TO T 


: HE END 
2GET LOW ORDER CURRENT RESIDENT 
A Py ORDER 


:PO 

3GET L 

3 IT IN 

3GET HIGH ORDER 

$ HEADER 

oerone't SECONDARY 

sDID WE CREATE THE FCT ? 

;NO = THE ree IT 


INT B 
:GET HIGH ORDER 
sCLEAR PRIMARY IF SET 


SEQ 128 


Mm 10 


SEQ 129 
UDAF52 = UDA-52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 74-3 
FCT=>RCT CONVERSION OVERLAY (F5) 

172 004710 100123 MOV R3, (R2) :STORE IT 
173 004711 FCTSLP: BR xv? *60 TO END 
174 004713 BADRBN: CALL = PNGPNG ‘FIND A NEW SLOT 
175 004715 104204 013477 MOV #RCTBUF RG [POINT TO BUFFER 
176 004717 105054 ADD RS,R4 ‘POINT TO ENTRY 
177 004720 104208 001566 MOV #CORBN,R2 :POINT TO OLD RESIDENT 
178 004722 10412 MOV (R2) RS 3GET LOW ORDER 
179 004723 100143 MOV R3, (RG) UT IT IN 
180 004724 104623 000001 MOV 1(R2),R3 GET HIGH ORDER 
181 004726 103203 170000 BIC #HD.CLR,R3 'CLEAR HEADER 
182 004730 101203 030000 BIS #RC.SND.R3 *MARK AS SECONDARY 
183 004732 100643 000001 MOV R31 1(R45 :STORE IT 
184 004734 BR :60 TO END 
185 904736 104303 001566 FILLIT: MOV CURBN R3 [GET LOW ORDER BN 
186 004740 100153 MOV R3,(R5) :PUT IN RCT 
187 004741 104303 001567 MOV CURBN+1,R3 :GET HIGH ORDER AND HEADER 
188 004743 107303 002007 SUB $T.LBN,R3 SSUBTRACT STARTING LBN BITS 
189 004745 103203 170000 BIC #HD.CLR,R3 SCLEAR HEADER 
190 004747 101203 020000 BIS -PRV.R3 [MARK AS PRIMARY 
191 004751 100653 000001 MOV 5 10R55 sSTORE IN RCT 
192 004753 102200 00 001702 BIT #OLL FLAG ‘DID WE CREATE THE FCT ? 
193 004756 BEQ XYZ [NO - THEN DON'T CHANGE IT 
194 004760 104303 001742 MOV FCTPTR.R3 'GET POINTER TO FCT ENTRY 
195 004762 104634 000001 MOV 1(R3) ,R4 ‘GET HIGH ORDER 
196 004764 101204 100000 BIS #PRHY RG [SET AS PRIMARY 
197 004766 100634 000001 MOV R4,1(R3) [STORE BACK 
198 004770 XYZ: CALL RCTURT [WRITE OUT BUFFER 
199 004772 105200 000002 001742 xyYZ21: ADD #2,FCTPTR ‘POINT TO TO NEXT ENTRY 
200 004775 117400 001747 DEC MNCNT :DEREMENT 
201 004777 BEG F RDONE SIF ZERO THEN DONE 
202 005001 117400 002137 DEC SECCNT SDECREMENT IT 
203 005003 BNE FRSKP SIF STILL IN BLOCK > CONTINUE 

005005 102200 000400 001702 BIT #OLL FLAG :D1D WE CREATE THE FCT ? 
205 005010 BEQ FBEGIN [NO = THEN N_DON® T CHANGE IT 

005012 104200 010000 001740 MOV #RDBUF ,BUF PNT :POINT TO BUFFER 
07 005015 104201 000030 MOV #F9,R1 “FCT WRITE OVERLAY 
208 005017 CALL _—~ PAGE S EXECUTE IT 
209 00502 B FBEGIN [AND GET A NEW ONE 
210 005023 104304 001742 FRSKP: MOV FCTPTR,RG ELSE cer CURRENT POINTER 
211 005025 060022 XFC UPDATE SLET HOST KNOW STILL ALIVE 
212 0050 BR FBEG2 SAND DO NEXT ENTR 
213 005030 102200 000400 001702 FRDONE: BIT #DLL, FLAG ‘DID WE CREATE THE FCT ? 
214 005033 BEQ FCTSP !NO = THEN DON'T CHANGE IT 
215 005035 104200 010000 001740 MOV #RDBUF , BUF PNT [POINT TO BUFFER 
216 005040 104201 000030 MOV #F9,R1 iWRITE LAST FCT BLOCK 
217 005042 CALL PAGE :D0 IT 
218 005044 FCTSP: POP R3 ?GET CURRENT FCT BLOCK NUM 
219 005045 104030 001743 MOV R3,FCTCNT SRESTORE IT 
220 005047 104200 010455 001740 MOV #PBNBUF , BUF PNT SRE-READ IT IN CASE OF HEADER CHANGES 
221 005052 104201 000017 MOV #F6,R1 3FCT READ OVERLAY | 
222 005054 CALL _—~ PAGE 
223 005056 POP R3 :GET HIGH ORDER CYLINDER | 
224 005057 104030 001605 MOV RS, CYLNUM+1 E IT 
225 005061 104030 001552 MOV R3, ISEEK+2 STORE oly SEEK COMMAND 
226 005063 POP R [GET LOW ORDER 
227 005064 104030 001604 MOV R3, CYLNUM RESTO oF " 
228 005066 104030 001551 MOV R3,ISEEK+1 SSTORE IN SEEK COMMAND 
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UDAF52 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 74-4 
FCT=>RCT CONVERSION OVERLAY (F5) 


329 005070 POP 
230 005071 104030 001565 MOV R3,CURTRK 

231 005073 104300 002146 001553 MOV CURGRP, ISEEK+3 
332 005076 102200 020000 001703 BIT #MODE ,FLAG1 
233 005101 BEQ $ 

234 005103 101200 100000 001552 BIS #SS, ISEEK+2 
235 005106 2$: CALL SEEK 

236 005110 RETURN 

237 

238 : 

239 : 

240 : 

ght ; LAST ENT 

243 005112 104204 001743 FIXFCT: MOV #FCTCNT,R4 
244 005114 104203 002153 MOV #TWOC RS 

245 005116 CALL DSUB 

246 005120 104200 015763 001740 MOV #IMAGE ,BUFPNT 
247 005123 104201 000017 MOV #F6,R1 

248 005125 CALL _—~ PAGE 

249 005127 104203 015763 MOV #IMAGE ,R3 
250 005131 105203 000377 ADD #255., 

251 005133 104632 00000 MOV 1(R3) .R2 

252 005135 103202 100000 BIC #PRHY Ro 

253 005137 100632 000001 MOV R2,1(R3) 

254 005141 104200 015763 001740 MOV # IMAGE ,BUFPNT 
255 005144 104201 000030 MOV #F9,R1 

256 005146 CALL PAG 

257 005150 DUBINC FCTCNT 

258 005156 RETURN 


3GET a TRACK 
;RETORE IT 

RESTORE GROUP 

ZAR E we IN Bs, wari ? 

:NO_- eusry 

sELSE S$ 1 376.40 N SEEK 
‘RESTORE TO PREVIOUS CYLINDER 


ot ROUTINE FIXES UP THE PREVIOUS BLOCK 
OF THE 4 IT CLEARS THE PRIMARY FLAG OF THE 


sFOR ye 
Pa F 2 
S SUBTRAC ya J cer BACK TO RIGHT NUM 


IGET HIGH ORDER 


IT BACK 
# STORE BUFFER oo 
T a OVERLA 

{WRITE IT BACK OUT 

7GET FCTCNT BACK TO NORMAL 


B11 


UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 75 
FCT=>RCT CONVERSION OVERLAY (F5) 





SEQ 131 
f 

1 ; 

é : WRITE AN RCT BLOCK 

; ; DDUMMY = BLOCK NUMBER TO BE WRITTEN 

§ 005160 114005 RCTWRT: CLR RS ZCLEAR ERROR COUNTER 

g 005161 104050 001732 MOV R5 ,NEXT1 ‘INIT NEXT COPY COUNTER 

005163 104204 00140 MOV #DDUMMY ,R4 :POINT TO RCT LBN 

8 005165 104203 001525 RCTRLP: MOV #SCR,R :POINT TO CHARACTERISTICS 

9 005167 104207 002110 MOV #CONBLK RO ‘POINT TO CONVERT BLOCK 

10 005171 102200 020000 001703 BIT #MODE , FLAG1 [WHAT MODE 

11 005174 BNE SIF SET THEN 576 

1 005176 104632 000011 MOV BNT12(R3) ,R2 ?GET LBN/TRACK FOR 512 

13 005200 BR *SKIP 57 

14 005202 104632 1 1$: MOV LBNT76(R3) ,R2 [GET LBN/TRACK FOR 576 

15 005204 103208 177400 2$: BIC #HIBYTE ,R2 ‘CLEAR HIGH BYTE 

16 005206 100672 000004 MOV R2,V3(RO) [FOR CONVERT 

17 005210 104632 001 MOV STCYL(R3) ,R2 sSTARTING CLYLINDER 

18 005212 10520 007777 BIC #LO, ‘CLEAR REST OF WORD 

19 005214 10067 1 MOV R2,V1+1(RO) * STORE 

20 005216 114002 CLR [FOR STORE 

21 005217 72 000000 MOV R2,V1(RO) {LOW GRDER ALWAYS 0 

22 005221 CALL  CVTSK SCONVERT AND SEEK 

23 005223 104202 013477 MOV #RCTBUF ,R2 [POINT TO BUFFE 

24 005225 104307 002171 MOV SECSIZ,RO ‘SECTOR SIZE IN WORDS 

25 005227 CALL CE [COMPUTE EDC = RETURNED IN R3 
26 005231 102200 020000 001703 BIT #MODE .FLAG1 [WHAT MODE ARE WE IN 

37 005234 BEQ 3 TIF CLE THEN 512 

8 005 100623 000440 MOV R3,RW.E76(R2) *STORE IT 576 BUFFER 

29 005240 BR 4 SKIP SET 

30 005242 100623 0004 3$: MOV R3,RW.EDC(R2) TSTORE IT 512 BUFFER 

31 005244 104207 001373 4$: MOV #URBLK POI COMMAND BLOC 

32 005246 100672 MOV Re RW. BUF (RO) sSTICK BUFFER PTR IN COMMAND BLOCK 
33 005250 104203 122400 MOV MWRCMD, :GET WRITE COMMAND 

34 005252 104302 001565 MOV CURTRK,R2 sGET CURRENT TRACK 

35 005254 101023 BIS R2,R3 SSET TRACK FOR WRITE 

36 005255 100673 000005 MOV R Rid CHD CRO) [STORE IN COMMAND BLOCK 

37 005257 104143 MOV (Ra), [GET LOW ORDER HEADER 

38 005260 100678 000003 MOV R3,RW.LOW(RO) ‘STORE IN WRITE BLOCK 

39 005262 104 000001 MOV 1(R4),R3 :GET HIGH ORDER 
40 005264 105303 002007 ADD ST.LBN,R3 [ADD STARTING LBN BITS 

41 005266 101203 000000 BIS #HD.LBN,R3 [SET HEADER 

4¢ 005270 100673 000004 MOV R3,RW.HI (ROD [STORE IN WRITE 

43 005272 104203 001400 MOV #HSLIM-1, [GET DUMMY SDI POINTER 

44 005274 100673 000006 MOV R3 Ru. DUACROD :POINT IN C B 

45 005676 104303 002005 WRITE3: MOV HPREA,R ‘GET HEADER PREAMBLE 

46 005 104304 002006 MOV DPREA.R4 [GET DATA PREAMBLE 

47 005302 10430, 001412 MOV UNIT, R2 : T R 
48 005304 104207 00137 MOV #WRBLK,RO [MAKE SURE POINTING AT BLOCK 
49 005306 101207 100000 BIS #B1T15.RO ‘SET NO REVECTORING 

50 005310 06001 XFC SIP :WAIT FOR SECTOR PULSE 

51 005311 104302 002171 MOV SECSIZ,R2 [SECTOR SIZE IN WORDS 

3 005313 06000 XFC WRITE SWRITE SECTOR 
53 005314 115001 TST TANY ERROR ? 

~ 54 005315 BEQ RWGOOD : 

55 008317 106300 002165 002167 CMP RETRY, TMPTRY [MAX 2 

36 005322 BEQ TYES = TRY SOME RECOVERY 

57 005324 115400 002167 INC TMPTRY SINC RETRY COUNT 

en ail 





58 005 

59 005 

60 005 

61 ; 

65 003 

64 005 

65 802 4 
67 005350 
68 005350 
69 EER 
70 005353 
71 005355 
Le: 005360 
73 005362 
74 005364 
75 005366 
76 005371 
77 005373 
78 005375 
79 005377 
80 005401 
81 005403 
82 005405 
83 toe tf 
85 005415 
86 005415 
87 005417 
88 005420 
89 005422 





002170 
002166 


001731 
001731 
001732 
001727 
001732 


000017 





1$: 


3$: 


2$: 


I 
RWGOOD: : 


RCFXLP: MOV 


RWTDON: 
RCWERR: MOV 
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UDAF5S2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 75- 
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WRITES 
RECTMP,R3 


Y 
RECOV, RECTMP 
#DDUMAY, 
#RCTEMT.R3 
DADD 
FCTCPY ,NEXT1 
RCTRLP 
FCTCPY,RS 
RCWERR 
NEXT1,R3 
RWTDON 
#ODUMMY , R4 
#RCTEMT.R3 
DSUB 
NEXT! 

RCFXLP 


#15. 0R1 
ERRMNT 


300 RETR 
3GET CURRENT Se nite LEVEL 


31F NEGATIVE THEN 

31S THERE ONLY Te thas LEVEL 0 ? 

3¥ aeeoy a ° 0 ISSUE it = JUST RETRY 
tron tate 


:DECREMENT IT 

:YUP = INCREMENT COUNTER 

4 Se eeeer IT 

ioe — LEVELS 

2FOR ADD 

POINT TO NEXT COPY 

DONE THIS SECTOR ? 

3NO = WRITE NEXT uct COPY 

:ERROR ON EVERY WRITE ? 
BIG TROUBL 

ANY REAPEATS ? 


:T0 GET IT BACK 
sDITTO 


:$U8 IT 
zREPEAT 
zXFC ERROR CODE 


sRCT WRITE ERROR 
sERROR RETURN 
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UDAF52 = UDA=52 FORMATTER_DMACR X04.01 23-AUG-82 13:14:22 PAGE 76 
RCT INITIALIZE OVERLAY (F7) 


wr 
S 
vw 
= 
™m 
= 


Sooooooocooo 


SESSESEEEESESESESEEE 
TNS REL LSSEeSOENTSs 


RIPIPININDPINIPIND «8 ad td ot ot ot ot ot ot 
SBSVEGRAN MS cernounrwv=owmnousr 


3333 
FERS 


SErEREE FREE SEES 
Sssssss = 


Sah al at at te 
NOH SNOW NS Ow sry 


NOUFWNIOODNOURUN OOM aOR 
Sse 


SRREEREEREERSERREE SEE REE REES 


aon 
WP 


MAAS BERRY 


102300 


ass 
ssssess sess 


Mm 
So 
we 


102200 


10463 


000014 001636 ACTINI: 
002171 


010000 


001772 
010000 


Mth atatdatdad af f\)— 3-2 
SNS ONS OO 
Poiwrorn NON 


i=] 
~ 
ou 


RCLP: 


6$: 


-SBTTL RCT INITIALIZE OVERLAY (F7) 


DMOVLY F7,START 


INITIALIZE RCT TO ALL UNUSED 


#F5, CUROVL 
SECSIZ.RS 
#RDBUF ,R4 
R1, (R45+ 
R3 


RCLP 
#SERNUM,R1 
#ROBUF ,R4 
ARSER, RG 
#4,R5 
(R1)+,R2 
R2, (R4)+ 

R5 

6$ 
CURTRK,R3 
CYLNUM,R3 
CYLNUM+1,R3 
R3 


RBNLBN, TEMP 
RBNLBN+1, TEMP +1 


#TEMP, 

#256. .DDUMMY 
DDUMMY +1 
#DDUMMY ,R3 
DADD 
LBNLBN,HOLD 
LBNLBN+1, HOLD+1 
ATOTRCT,R3 
OLD, R4 
HOLD , CURBN 


-CURLBN 
HOLD+1 , CURBN+1 
ee ee 


PSCR RS 
#CONBLK,RO 


#MODE .FLAG1 


BNT12(R3) ,R2 
LBNT76(R3) ,R2 


R2 v5¢RO) 
STCYL(R3) ,R2 
R »¥1#1(RO) 
R2,V1(RO) 


ee = ee ee ee 


3FOR OVERLAY INIT 
SECTOR WORD COUNT 
sFOR INIT OF RCT WORDS 


é T TO R 
sPOINT TO SERIAL NUMBER 
; COUNTER 

7GET WORD 

sSTORE WORD 

;DECREMENT COUNTER 
sCONTINUE TILL DONE 
3GET CURRENT TRACK 
sSAVE IT 

3GET LOW ORDER CYLINDR 
sSAVE FOR RESTORE 

; IGH OR 


sHIGH ORDER 

3FOR ADD 

32 BLOCKS(CONTROL) WORTH OF RBN'S 
+3 a ORDER 

sADD TO GET “REAL’’ NUMBER OF RBN'S 
3GET LOW en OF LBN'S 


2GET HIGH ORDE 
14M eal 


2D1T 

GET STARTING RCT LBN 

2GET STARTING RCT BLOCK NUMBER 
2ALSO SAV 

2GET rhe ORDER 

CLEAR BLOCK COUNTER 

POINT TO CHARACTERISTICS 
sPOINT TO CONVERT BLOCK 

: MODE 

z1F SET THEN 576 

:GET LBN/TRACK FOR 512 

sSKIP 576 SET 

:GET LBN/TRACK FOR 576 

sCLEAR HIGH BYTE 

2FOR CONVERT 
zSTARTING CLYLINDER 
sCLEAR REST OF WORD 


:FOR §T 


| 
TSAVE FOR RESTORE 
[SET NUMBER OF RBN’S IN LBN AREA 
SFOR STORE 
04 ORDER ALWAYS 0 
sl 





UDAFS2 = UDA=52 FORMA 
RCT INITIALIZE OVERLAY 


58 004165 
59 004166 
60 004170 
61 004172 
62 006174 
63 004176 
64 004200 
65 904902 
65 00420 
67 004207 
68 004211 
69 004213 
70 004215 
71 004217 
72 006221 
73 004223 
7% 004225 
75 004226 
76 004230 
77 004232 
78 004236 
79 004236 
80 004240 
81 004242 
82 004244 
83 004246 
84 004250 
85 00495 
86 004254 
87 004256 
88 004260 
89 004261 
90 004263 
91 004264 
92 004265 
93 004267 
9% 004972 
95 004974 
96 004276 
97 004 

98 004302 
99 004304 
100 004306 
101 004310 
102 904312 
103 004314 
104 004316 
105 004320 
106 004320 
107 004321 
108 004325 
109 004325 
110 004330 
111 004332 
112 004384 
113 004336 
114 004341 


100623 


Sesser 
z3 Sa 


zy 


= 
mw 


NO ead 
WWAWWWNWWNIAIWANIAAWNPOWII 


oo 
~ 


ee ek aed eh ed ad et ed a ed a et 


SSSSSSSE32 
Sssese 


001732 
001566 


001703 


002167 


002170 


001731 001732 


RCINLP: 
RCLP2: 


3$: 
4$: 


WRITES: 


1$: 


3$: 


2s: 
NOGOOD : 


CLR 
MOV 
MOV 
CALL 


E 11 
Ny aaa X04.01 23-AUG-82 13:14:22 PAGE 76-1 


R5 
R5,NEXT1 
#CURBN,R4 
VTSK 
#RDBUF RZ 
SECSIZ,RO 
#MODE , FLAG? 
R3-RW.E76(R2) 
R3,RW.EDC(R2) 
#WRBLK, 
R2, RW. BUF (RO) 
#URCMD ,R3 
CURTRK,R2 
R “RW. CMD(RO) 


o 


#H =i, 
R3,RW.DUM(RO) 
HPREA,R 
DPREA,R4 


UNIT ,R2 
TAOS OST AD 


SECSIZ,R2 
WRITE 
R1 


NOGOOD 
——— 
TMPTRY 
WRITES 
RECTMP,R3 
RECOV 

3$ 

ERRHND 
TMPTRY 
RECTMP 
WRITES 


R5 


TMPTRY 
RECOV, RECTMP 
#RCTEAT RS 
FCTCPY,NEXT1 
RCLP2 


CLEAR ERROR COUNTER 
sINIT COPY COUNT 
zFOR CON 

CONVERT AND SEEK 
POINT TO BUFFER 
sSECTOR SIZE IN WORDS 
sear ned hae be ae IN R3 


POINT TO COMMAND BLOCK 

STICK BUFFER PTR IN COMMAND BLOCK 
3 WRITE C 

GET CURRENT TRACK 

SET TRACK FOR WRITE 

STORE IN COMMAND BLOCK 
2GET LOW ORDER HEADER 
sSTORE IN WRITE BLOCK 
2GET HIGH ORDER 

zADD STARTING LBN BITS 
SET HEADER 

aon IN WRITE BLOCK 


ET PORT NUMBER 
sMAKE SURE POINTING AT BLOCK 
sWAIT FOR SECTOR PULSE 
sSECTOR SIZE_IN WORDS 

sWRITE SECTOR 

2MAX ? 

sYES = TRY SOME RECOVERY 
2 INC tay COUNT 


300 RY 
3GET CURRENT ERROR RECOVERY LEVEL 
31F NEGATIVE THEN FRIED 

31S THERE ONLY RECOVERY LEVEL 0 ? 

:YES - NO NEED TO ISSUE IT = JUST RETRY 
sTRY RECOVERY 


3 INIT 
;DECREMENT IT 
sRETRY 


:YUP = INCREMENT COUNTER 
et te IT 


sFOR RESET 

2GET RECOVERY LEVELS 
3FOR ADD 

zFOR ADD 
sPOINT T 
2DONE T 


NE 
HIS S$ 
3NO - WR 


XT _ COPY 
ECTOR ? 
NEX 


0 
IS ? 
IT T FCT COPY 


= 





F52 = UD 

INITIALIZE OVERLAY ( 
115 sr ot: 106305 
16 004 

117 004347 102200 
118 004352 

119 004354 104204 
120 004356 104200 
121 004361 114000 
122 004363 104205 
123 004365 

124 004367 

125 004371 

126 004373 

127 004375 

128 004377 115000 
129 004401 

130 004403 114005 
131 004404 104204 
1 004406 104201 
133 004410 10024 

134 004411 117401 
135 004412 

136 004414 102200 
137 004417 

138 004421 

139 ony th 104300 
140 004432 104300 
141 soph 115400 
142 004437 106300 
143 004442 

144 004444 060022 
145 004445 106300 
146 004450 

147 004452 

148 004453 104030 
149 004455 104030 
150 004457 

151 004460 104030 
152 004462 104030 
153 004464 

154 004465 104030 
155 004467 104300 
156 004472 102200 
157 004475 

158 004477 101200 
159 004502 

160 004504 

161 Gotan 104202 
166 004510 104204 
16 pote ts 114003 
164 004513 114005 
165 004514 101205 
166 poe 2ig 100243 
167 004517 100245 
168 004520 117402 
169 004521 

170 004523 101200 
17% 004526 


001731 
000040 


001410 
000200 
04 


0014 
001403 


002164 


010000 
000004 


000100 


001702 


001403 


001703 
001566 
001567 
002164 


002164 


001553 
001703 


001552 


001703 


4$: 


5$: 


7$: 


RCLP4: 


RCLP6: 


2$: 


RCFIX: 


RCLP3: 


F 11 


A-52 tet X04.01 23-AUG-82 13:14:22 PAGE 76-2 


py reer as 
#RCINIT, FLAG 
>. ae 


P,R4 
#138. Dounny 


#DDUMMY ,R3 
DSUB 

DCMP 

4% 

4$ 

FIXBLK 
COUNT 

7$ 

R5 
whee 
RS, (R4)+ 
R1 


5$ 

#RCINON,FLAG1 

RCLP6 

CUR LBN 

CURLBN , CURBN 
CURLBN+T, -CURBN+1 

RCTLBN, COUNT 

RCFIX 

UPDATE 

Py es 
a 
R3,CYLNUM+1 

RS e ISEEK+2 

-CYLNUM 

RS-ISECK#1 

R3 

R3,CURTRK 

CURGRP, ISEEK+3 

#MODE , FLAG 


2 
#SS, ISEEK+2 
SEEK 


#128. 
eROBUE . 
R3 


RS 
#RC.NUL,RS 
R3,(R4)+ 

RS, (R4)+ 
Ro” 


RCLP3 
#RCINON, FLAG 
RCLP4 


ERROR ON EVERY WRITE ? 
;YUP = BIG TR . 

;ALREADY FIXED IT UP 
sYUP - NEED TO DO a rho 
DONE ) 


ED 
ZFOR yr dige J (RBN'S NO 
; SUBTR ACT ONE BLOCKS WORTH 


CLEAR 
+FOR SUBTRACT 
3IN LAST BLOCK ? 


SIF EQUAL - NO PARTIAL BLOCK 
:YES ™ CHANGE HEADERS TO NULL 


POINT TO BUFFER 


3 COUN 
CLEAR DATE AREA 
ECREMENT oe 


: DER 

INCREMENT BLOCK COUNTER 
3DONE RCT BLOCKS(NOT PAD) 
;YUP = REINIT BLOCK 

3LET = KNOW STILL ALIVE 


:NOPE = DO NEXT SECTOR 
GET HIGH ORDER CYLINDER 


STORE IT 

STORE IN SEEK COMMAND 
GET LOW ORDER 

sRESTORE IT 


STORE IN SEEK COMMAND 
2GET synnent TRACK 


sDITTO 

SET NULL HEADER 

STORE LOW ORDER 

3 STORE HIGH ORDER 

Hy thy oH COUNTER 
3LOOP UN TIL DONE 

: DONE ALL L NON-PAD = ONE MORE THEN FINISH 
[CONTINUE WITH LAST SECTOR 


—— — 


SEQ 135, 
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17 004530 104012 RCINER: MOV R1,R2 :XFC ERROR CODE 
173 006531 104201 000017 MOV #15.,R1 :RCT INIT ERROR 
174 004533 CALL = ERRMNT TERROR RETURN 
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UDAFS2 = 
RCT INITIALIZE OVERLAY (F7) 


PRRW 
“WSs Ge Ge Ge Oe 


MNUEWR-—ONVUIW 
ak ed ad dd dd od 


SSSSSeeseer 
* 


000040 001702 


Sanaa | 


CHANGE UNUSED ENTRIES TO NULL HEADERS 


: CLR R2 ZFOR LOW ORDER 

CLR R [FOR HIGH ORDER 

MOV TEMP,R3 ‘GET REMAINDER FROM TEMP 

BIS #RC.NUL,RS [SET IN NEW HEADER CODE 

MOV #RDBUF ,R4 ;POINT TO BUFFER 

MOV #128.,R1 ‘TOTAL COUNT 

SUB R3,R1 i SUBTRACT USED ENTRIES 

ADD R3,R3 ADD TO GET OFFSET (MULT BY 2) 
ADD R3,R4 “POINT TO FIRST UNUSED ENTRY 
MOV R2,(R4)+ SSTORE LOW ORDER 

MOV R5,(R4)+ ‘STORE HIGH ORDER 

DEC R1 :DECREMENT COUNT 

BNE FIXLP SLOOP TILL DONE 

BIS #RCINIT, FLAG [SET DONE IT 


RETURN 





¢ 004564 
4 

5 

6 

7 004614 
8 004017 
9 004022 
10 004024 
11 004025 
i 004027 
13 004031 
14 004033 
15 004035 
16 004037 
17 004041 
18 004043 
19 004045 
20 004047 
21 004051 
22 004053 
23 004055 
24 004057 
25 004061 
26 004063 
44 004065 
8 004067 
29 004071 
30 004073 
31 004075 
32 004077 
33 004101 
34 004102 
35 004104 
36 004106 
37 004110 
38 004112 
9 004113 
0 004115 
1 004116 
2 0.4120 
3 1 
4 2 
5 4 
6 6 
7 

8 

9 

0 

2 

4 

5 

6 

7 


MOAUIMMUIUIUI ES BERLE KKK HY! 
Vw Ww ed ed ed ed eed 
ENSORNMONUNRS 


SSss 


RRREERE 
sss $s 


S382 Ses 
gag SSeSSs 


SESLARS 
SISSS 
NONOOCON 
WW WWWAWWIAWW 


ee ek me ed ed ed ed ed ed od td od od oe aed td ed oe = = 3 SD 
So 
RESLER 
Soueee 


BSReceERe 
Sssisaxssss 


Secencs Ses 
OOooo-af £4 
-—OMSo—NO Re 
M—NoOoOOw wn 


000400 


FOLOOP: 


READ?: 


101$: 


002165 002167 100$: 
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UDAFS2 = UDA-52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 78 
FCT READ OVERLAY (F6) 


-SBTTL FCT READ OVERLAY (F6) 
DMOVLY F6,START 


READ A BLOCK OF THE FCT 
RS => BUFFER 


MOV #F6, CUROVL 
MOV FCTCNT ,ODUMMY 
CLR DDUMMY +1 

CLR R5 

MOV #DDUMMY , RG 
MOV LBNCYL,R3 
MOV #CONBLK 

MOV »V1(RO 

MOV LBNCYL+1,R3 
MOV R3,V1+1(RO) 
MOV SECTI2.R3 
MOV R3,V3(RO) 
CALL CVTSk 

MOV #RDBLK RO 
MOV #HSLIM-1,R3 
MOV R3,RW.DUM(RO) 
MOV DDUMMY ,R3 
MOV R3,RW.LOWCRO) 
MOV DUMMY +1 

ADD ST.XBN,RS 
BIS #HD.XBN,R3 
MOV R3,RW.Hi (RO) 
MOV FPNT, 

MOV R3,RW.BUF CRO) 
MOV #RUCMD R3 
MOV CURTRK.R1 

BIS R1,R 

MOV R3,RW.CMD(RO) 
MOV #ROBLK RO 
MOV #RDCMD.R 

MOV IT, Re 

MOV R3, (RO) 

BIS #B1T15,RO 
XFC IP 

MOV #SECSI6,R2 
XFC READ 

TST R1 

BNE 100$ 

MOV RW.ER1(RO).R3 
BIT #ECCE RS 

BEQ 101 

BIC #ECCE ,RDBLK+RW.ER1 
CALL  ECCCK 

TST R1 

BNE 100$ 

MOV BUF PNT 

MOV #SECSI6,RO 
CALL  CEDC 

CMP RW.EDC(R2) ,R3 
BEQ 102$ 

CMP RETRY, TMPTRY 


OVERLAY NUMBER 
2GET CURRENT COUNT 
HA Fae ORDER STORE 


2GET SECTORS/TRACK (512) 
;STORE FOR CONVERT 
CONVERT FCT BLOCK NUMBER AND SEEK 
sPREPARE FOR READ SECTORS 
sPOINTER TO DUMMY SDI BLOCK 
TORE IN COMMAND BLOCK 
:LO ORDER BLOCK NUMBER 
sSTORE IN READ COMD BLOCK 


[GET HIGH ORDER 
{ADD STARTING LEN BITS 


: IN READ CMD BLOCK 
3GET BUFFER POINTER 

sSTORE BUFFER ADDRESS IN COMMAND BUFFER 
;LOAD SDI READ C 

3GET CURRENT HEAD NUMBER IN R1 

sSET IT IN COMMAND 

sSTORE BACK 

sMAKE SURE POINTING AT BLOCK 

sMARK AS ONLY REQUEST 

3GET POR 

sSTORE IN CMD BLOCK 

3SET NO REVECTORING 

sWAIT FOR PULSE 

sSECTOR SIZE IN WORDS 

sREAD 1 SECTOR 

ZANY ERRORS ? 

sYES = TRY RECOVERY 

3GET ECC STATUS WORD 

sECC ERROR ? 


ORRE 
sPOINT TO BUFFER 
sSECTOR SIZE IN WORDS 
sscmrule EDC 
YUP = CONSIDER GOOD 
;MAX ? 


yu) 





SEQ 139 


UDAF 52 = UDA=52 FORMATTER DMACR X04.01 23-AUG~82 13:14:22 PAGE 78-1 

FCT READ OVERLAY (F6) 
58 004157 BEQs18 YES = TRY SOME RECOVERY 
59 004161 115400 002167 INC —sTMPTRY ZINC RETRY COUNT 
60 004163 BR READ? :D0 RETR 
61 004165 104303 002170 1$: MOVs RECTMP,R3 GET CURRENT ERROR RECOVERY LEVEL 
62 004167 BMI 31F NEGATIVE THEN FRIED 
63 004171 115000 002166 TST —- RECOV Z1S THERE ONLY RECOVERY LEVEL 0 ? 
64 004173 BEQ 38 YES = NO NEED TO ISSUE IT = JUST RETRY 
65 006175 CALL — ERRHND TRY RECOV | 
66 004177 114000 002167 3$: CLR —sTMPTRY :FOR INIT | 
67 004201 117400 002170 DEC = REC TMP DECREMENT IT | 
68 004203 BR READ7 RETRY 
69 004205 28: | 
70 004205 115405 INC —RS INCREMENT BAD COUNTER | 
71 004206 106305 001731 CMP = FCTCPY, RS ALL BAD ? | 
72 004210 BEQ © OFATAL YUP = ALL OVER | 
73 004212 104204 001403 MOV — #DDUMMY , RG POINT TO COUNT 
74 004214 104203 001725 MOV = #FCTFMT 3 :SIZE_OF TABLE 
75 004216 CALL ADD ADD TO POINT TO NEXT COPY 
76 004220 114000 002167 CLR PTRY RESET RETRY LEVEL | 
77 004222 104300 002166 002170 MOV —-RECOVSRECTAP {DITTO RECOVERY LEVELS | 
78 004225 FOLOOP BRANCH BACK 
79 004227 102: 
80 004227 114000 002167 FODONE: CLR —TMPTRY ZFOR RESET | 
81 004231 104300 002166 002170 MOV —- RECOV, RECTMP GET RECOVERY LEVELS 
82 004234 115005 TST = RS ZANY ERRORS ? | 
83 004235 BEQ OLDONE ZNO = EXIT 
84 004257 104204 90140 MOV = #DDUMMY RG SPOINT TO BLOCK COUNT | 
85 004241 104203 00172 #FCTFAT,R3 3SIZE 0 
86 004243 CALL DSUB 3GET BACK TO PREVIOUS COPY 
87 004245 CALL —CVTSK :CONVERT AND SEEK 
88 004247 104207 001373 MOV  #URBLK,RO POINT TO COMMAND BLOCK | 
89 004251 104203 122400 MOV = #WRCMDR3 GET WRITE COMMAND 
90 004255 104302 001565 MOV = CURTRK ,R2 GET CURRENT TRACK | 
91 004255 10102 BIS —s- R23 SET TRACK FOR WRITE 
92 004256 100673 5 MOV —s-R3, RW. CMDRO) STORE IN COMMAND BLOCK | 
93 004260 104303 001740 MOV NTR GET BUFFER ADDDRESS 
9% 004262 100673 000002 MOV —s-R3,, RW..BUF (RO) STICK IN COMMAND BLOCK 
95 004264 104303 001403 MOV = ODUMMY ,R3 :GET LOW ORDER HEADER 
96 004266 100673 000003 MOV =——-R35, RW. LOW RO) ORE IN WRITE BLOCK 
97 004270 104303 001404 MOV = ODUMMY +1 ,R3 GET HIGH ORDER | 
98 004272 105303 002011 ADD — ST. XBN,RS ZADD STARTING XBN BITS | 
99 004274 101203 120000 BIS #HD. XBN, R3 HEADER COD 
100 004276 10067 MOV —-R3, RW. HI CRO) SSTORE IN WRITE BLOCK | 
101 004300 104203 001400 MOV =. #HSLIM-1,R3 GET DUMMY SDI POINTER | 
102 004302 100673 000006 mov RS RW. DUACROD POINT IN COMMAND BLOCK 
103 004304 104303 002005 WRITES: MOV ——- HPREA,R GET HEADER PREAMBLE 
104 004306 104304 002006 MOV ——DPREA, RG GET DATA PREAMBLE 
105 004310 104302 00141 MOV —s UNIT ,R2 GET PORT NUMBER | 
106 004312 104207 00137 MOV = #WRBLK RO MAKE SURE POINTING AT BLOCK | 
107 004314 101207 100000 BIS  - #B1T15,RO SET NO REVECTORING 
108 004316 060012 XFC SIP WAIT FRO SECTOR PULS 
109 004317 104202 000400 MOV = #SECSI6,R2 :SECTOR SIZE_IN WORDS 
110 004321 06000 XFC WRITE WRITE SECT 
111 004522 115001 TST ZANY ERROR ? 
112 00432 BEQ = $ :NO = SKIP RETRY | 
113 004325 106300 002165 002167 CMP = RETRY, TMPTRY 3MAX ? | 
114 0046330 BEQ sé YES = TRY SOME RECOVERY 
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FCT READ OVERLAY (F6) 
115 sek t53 115400 
116 004 
11 O06 378 104303 
118 00434 
119 004342 115000 
139 004344 
121 004346 
\$¢ 806328 114000 
\ 004352 117400 
124 004354 
125 004356 
126 sagt] 117405 
127 004357 104300 
128 004362 
129 004364 115400 
130 004366 
131 004370 115000 
132 004372 
133 004374 102200 
134 004377 
135 004401 101200 
136 004404 103200 
137 004407 104201 
138 004411 
139 004413 
140 004415 104012 
141 oot 38 104201 
142 00442 


002167 
002170 
002166 


00167 
002170 


002166 
001743 


000021 


002170 


001702 


001702 
001702 


1$: 


3$: 


2$: 


OLDONE : 
OFATAL: 


OQUIT: 


TMPTRY 
WRITES 
RECTMP,R3 


RECOV 
3 


RS 
RECOV, RECTMP 
F ODONE 
FCTCNT 
FCTCNT 


OQUIT 
#GOBAD ,FLAG 
OQuIT 


orCTAVe FLA” oFLAG 


WFCTA 
oR1 


s INC tly COUNT 


:6ET CURRENT ten me LEVEL 


F NEGATIVE T 


318 THERE ONLY RECOVERY LEVEL 0 ? 
NO TO ISSUE IT = JUST RETRY 


sYES - 

STRY RECOVERY 
FOR INIT 
:DECREMENT IT 


sDEREMENT COUNTER 


3GET Pe ey 
E my toll 0 DO 


3SE 
; INCREMENT 


; DIA INF 
TIF YES THEN IT'S 
= CON ST GUE 


:NO_MOR T 
SET _IN D/XBN OVERLA 


START OVER IN BEST GUESS MODE 


:XFC ERROR CODE 
SFCT READ ERROR 
SERROR RETURN 


-——~ 





UDAFS2 = UDA=52 FORMATTER ws X04.01 23-AUG-82 13:14:22 PAGE 79 
GET FCT BLOCK FOR D/XBN FORMAT (G2) 


So & 
Nm 
™m 


SERREERREEERS 


Nm 

RUNS Sano Mew OCaNOUAWR— 
o 

w 

So 


BURN 
333333 
SE293 





001636 


002105 
002106 
002104 


DLERR: 


-SBTTL GET FCT BLOCK FOR D/XBN FORMAT (G2) 
GET*S ONE FCT BLOCK FROM HOST FOR D/BN FORMATTING 


DMOVLY G2,START 


MOV ose. CUROVL SIGNAL OVERLAY 11 
MOV #DMBUF RS POINT TO MAINT BUFFER 
;GET DUP CODE 


MOV tT ie SSTORE IT 
MOV a3 cas R3 :GET BLOCK NUMBER DESIRED 


MOV R3,1(R5) STOR 
CALL § SNOMNT :SEND REQUEST 
CALL RCVMNT SRECEIVE ANSWER 
MOV (R5) ,R3 ‘GET STATUS WORD 
BNE DLE TERROR IF NOT ZER 
MOV 1(R5) ,OVLBLK+1 [GET LOW HOST ADDRESS 
MOV 2(R5) -OVLBLK+2 ‘GET HIGH HOST ADDRESS 
MOV #257. ,OVLBLK [GET LENGTH 
MOV #OVLBLK,R4 sFOR OVERLAY ROUTINE 
MOV #PBNBUF .R3 ;POINT TO BUFFER 

LL OVRLAY [GET THE SECTOR 
RE TURN 
MOV #19.,R1 ZSIGNAL DLL ERROR 
MOV FCTCNT,R2 ‘BLOCK FAILED ON 


CALL ERRMNT sERROR RETURN 


SEQ 141 
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GET FCT BLOCK FOR LBN FORMAT (G3) 


3 


0036 001636 
743 

455 001740 
17 


001702 


BopceRRes 
SNONYVWOO Sows 

tt 

Oo 

Nm 

3 

So 

— 


RRERS 
o So 


53 104673 000025 
033 102203 100000 


0 
061 104204 010455 
020000 001703 


000020 


104643 000016 
104030 001722 


101500 000002 001702 


NOPIPONONINONININDR) 2 tt ot 


PESESEFESESEREESESESEEE =F 


BEEEE 
WISSTE 
28 
= $s 


000004 


00 010455 001740 
1 000030 


115000 001722 


104200 000001 001743 
102200 020000 001703 


SERERRERRESREERRER REE RES 
SERSHRONRRRNA A SROR SS 


MVIMUMIMNMIMIA ES BERBERA 


13$: 


SEQ 142 


-SBTTL GET FCT BLOCK FOR LBN FORMAT (G3) 


GET RIGHT FCT BLOCK FOR LBN FORMATTING 


DMOVLY G3,START 


#63, CUROVL 
#PBNBUF , BUF PNT 
#F6,R1 
PAGE 
#FCTAVL, FLAG 
NGD 
#PBNBUF ,RO 
(RO) R3 
#M512,R3 
#9576 ,R3 
13$ 
NGD 
FCTFLG(RO) ,R3 
#NOFCT,R3 
NGD 
#PBNBUF ,R4 
#MODE FLAG 
C576(R4) .R3 
C512(R4) R3 
RS FCNT 
#FCTEMT, FLAG 
R3 
R3, (RO) 
INST (RO) ,R3 
R3, INST(RO) 
#PBNBUF ,R3 
#FSER,RS 
#SERNUM,R4 
#4,R5 
(R3)+,R2 
Re. » (R4)+ 
8$ 
#PBNBUF , BUF PNT 
F9,R1 
PAGE 
CNT 
RDONE1 
#1,FCTCNT 
#MODE ,FLAG1 


3FOR CURRENT OVERLAY 

sFOR FIRST FCT BLOCK 
;POINT TO BUFFER 
FCT READ OVERLAY 


READ IT IN 

sFCT STILL HERE ? 
;NOPE = CAN HL 

;POINT TO BUFFER 

;GET FORMAT _fEDIA WORD 

31S IT i By 

svuP - 

31S IT B56" ? 


:YUP = 0.K. 

1S IT 7 IN PROGRESS 

ZNOPE - FCT NO GOOD 

[GET FLAG WORD 

71S rt REALLY AN FCT 

;NOPE = FIND OUT IF WE Quit OR ROUGH IT 


E WE | 
IF CLEAR_THEN 512 MODE 
3GET COUNT 4 es ENTRIES *576) 
i SKIP 512 $ 
met OF "Useo ENTRIES 


i$ 
z1F g A | aa ENTRIES EXIST 


INIT 
SIGNAL FORMAT IN PROGRESS 
FORMAT INSTANCE NUMBER 
INCREMENT IT 

sSTORE IT hae 

POINT TO BUFFER 

POINT TO SERIAL sean 
3SER ite NUMBER BLOC 


GET WOR 
STORE WORD 
:DEC REMENT COUNTER 


POI BUF FE 
sFCT Waite OVERLAY 


ANY ENTRIES ? 
;NOPE = ALL DONE 
FOR FCT COUNT INIT 
WHAT MODE ARE WE IN 


58 
59 004 
60 004 
61 004 
¢ 004164 
63 004166 
64 004171 
65 004173 
66 004175 
67 004177 
68 004201 
69 004203 
70 004205 
71 004210 
72 004212 
73 004215 
74 004217 
75 004221 
76 004222 
77 004224 
78 004226 
79 004230 
80 004232 
81 004234 
82 004236 
83 004240 
84 Oeser 
85 004244 
86 004247 
87 004251 
88 004253 
89 004255 
90 004257 
91 004262 
92 004264 
93 004267 
94 004271 
95 004274 
004277 
97 004301 
98 poe eoe 





000001 
001706 
001722 
000020 
002004 
000001 
000000 
002004 
000001 


000022 


001743 
001740 


001702 


001722 
002163 


001722 


001776 
001702 


001702 
001702 


001702 
001702 





RLOOP: 


BLKFND: 
RLOOP1: 


RDONE : 


RDONE1: MOV 


NGD: 


C 
RDONE2: 
NGD1: 8 


RQUIT: 
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GET FCT BLOCK FOR LBN FORMAT (G3) 


RLOOP 
FCTSUB,FCTCNT 
#PBNBUF , BUFPNT 
F6,R1 
PAG 
#FCTAVL, FLAG 
#PBNBUF R4 
#HGHPBN,R3 
DCMP 
BLKFND 
#128. ,FCNT 
RLOOP 
#128. ,PCNT 
#PBNBUF ,R4 
1cR4), ),RO 
#HD.CLR,RO 
(R45 
#HGHPBN,R3 
MP 


RLOO 

R1,1(R4) 

R4 ,BADPBN 

FONT, FCTREV 

#GOBAD ,FLAG 

RQUIT 

#F CTBAD+BSTGS ,FLAG 
#FCTAVL, FLAG 
#F1,R1 

NEXT 

#F CTBAD+BSTGS ,FLAG 
#FCTAVL, FLAG 

RDO 

#38. .Rt 

ERRMNT 


SEQ 143 


3512 = NO tie NEEDED 
sPOINT TO 576 T 

sPOINT TO BUFFER 

FCT READ OVERLAY 


;D0 THE READ 

STILL HAVE FCT ? 
AN IT 

POINT TO THE BUFFER 


VES - FIND RIGHT ENTRY 


H R 
SAVE _IT TEMPORARILY 
:CLEA AR FOR COMPARE 


TORE IT BACK 
;POINT TO HIGHEST PBN 
PARE 


sC 

sIF LESS THAN OR EQUAL THEN FOUND FIRST LBBN 
STORE ag BACK 

;DECREMENT COUNT 


sDEC IT 
:POINT HM NEXT ENTRY 


:YUP = THEN Last ENTRY IS IT 
:TRY NEXT ENTR 

7STORE HEADER BA CK 

MAKE CURRENT BAD POINTER 

ght a COUNT FOR LATER USE 


URN 
;CONTINUE AS BEST GUESS ? 
;NOPE = GIVE UP 

;SET BAD FCT FLAG 

3NO MORE FCT 

POINT TO D/XBN OVERL 

;START OVER IN BEST GUESS MODE 


SET FCT NOT USED FLAG 

NO MORE FCT (SO WILL DO EXTEN READS) 
ERROR CODE 

NO SUBCODE 


ERROR RETURN 


a oo ae 








1 


4 

5 004322 
6 

7 

8 

9 004014 
10 004017 
11 004021 
\¢ 004023 
13 004024 
14 004025 
15 004027 
16 004031 
17 004034 
18 004036 
19 004040 
20 004043 
21 004046 
22 004050 
23 004052 
24 004054 
25 004056 
26 004060 
sf 004062 
8 004064 
29 004065 
30 004066 
31 004070 
32 004072 
33 004074 
34 004075 
35 004077 
36 004100 
37 004102 
38 004103 
39 004105 
40 004107 
41 006111 
ri} 004113 
43 004115 
44 004123 
45 004125 
46 ope igs 
47 004131 
48 004133 
49 004136 
50 004140 
3} 004142 
§ 004144 
53 004147 
54 004151 
55 004153 
56 004156 
57 004160 


S—eey 
Nm WWw~s 


mr 
oO 


BRER DSRS 
S 


Ger RRRRE 


SUSUSSSaNa Ssas S$ssss 


seeesesee 


Ss 


nm 
Ww 


web ae Hb ad 3 HD ee a a tt Sada 
~ 


104303 


001636 


00213? 
001787 


000100 002164 
012264 


000100 002164 


002162 





CLELP2: 


CLELP: 


CLESKP: 


CLSKP2: 


CLEDON: 
CLSKP4: 
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RCT CLEANUP OVERLAY (G4 


~SBTTL RCT CLEANUP OVERLAY (G4) 
RCT CLEANUP AND FINAL STATS 


DMOVLY G4,START 


#64 ,CUROVL 
#OMBUF 


SNDCNT.R3 
R3, (ROS 
R3 


CLSKP3 


#REVBUF .R2 
#64. ,COUNT 
CUR 


CLEWRT 


B 12 










;FOR OVERLAY IDENT 
[MESSAGE BUFFER 

SANY SECONDARY REVECTORS ? 
SARE THERE ANY ? 


sNOPE = JUST EXIT 
sPOINT TO REVECTOR BUFFER 


COUNT OF MAX TO REVECTOR AT ONCE 


CLEAR FOR INIT 

HIGH ORDER T 

INIT RCT BLOCK 

GET COUNT OF RCT ENTRIES 
3GET GLOCK NUMBER TO READ 
sREAD IT 

POINT TO BUFFER 

3GET HEADER 

CLEAR OUT LOW GARBAGE 
21S IT_A SECONDARY ? 
2NO_= SKIP REVECTORING 
3GET LOW ORDER 

sSTORE IN REVECTOR BUFFER 
2GET HIGH ORDER 

CLEAR HEADER 

:SET AS AN LBN REVECTOR 
sSTORE IT 

2GET LOW ORDER RBN NUMBER 


[GET HIGH ORDER 
“STORE IT 


[DEC NUM OF EMPTY REVECTOR SLOTS 


sDECREMENT IT 

21F ZERO THEN DONE 
sFULL BLOCK ? 

z1F 0 = PROCESS BLOCK 

s INCERMENT IT 

sPOINT TO NEXT RBN ENTR 
sDECREMENT IT 


D0 NEXT ENTRY IF NOT ZERO 
: INCREMENT IT 


sNOPE ~ READ IN NEXT BLOCK 
sELSE DONE 
sPROCESS THE BLOCK 
2FOR COUNTER INIT 
RESET POINTER 
BRANCH BACK 


[NO = DONE 
[WRITE OUT ANY LEFTOVERS 


104201 000066 


UDAF52 = UDA=52 tog Ne DMACR X04.01 23-AUG=82 13:14:22 PAGE 81-1 
RCT CLEANUP OVERLAY ( 


CLSKP3: 


INAL STATS 
:DISCONNECT/SPINDOWN DRIVE 
iMAKE SURE QUITS NICELY 





SEQ 145 


Pace IT IN OF FCT,RCT,HEADS OVERLAY 


ee ee 
SS eee 





1 


3 
N 
a 


DWONANEWN —$ O OONAUS WN SO OONOUE wh 


Wr 


SBS SR Sasa we utunse 
334 3 32 


OO 
Soe 


iN 
Ww 
tb 
—s 


157 


103 


103 


101 


122 


120 


162 


124 


124 


122 


145 


162 


PARMTB: 


FINMSG: 
LF INMS 
FCTUSD: 
LFCTUS 


FCTNOT: 
LFCTNT 
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RCT CLEANUP OVERLAY (G4) 


DATA STRUCTURES FOR STATUS RESPONSE 
-BLKW 7 sPARAMETER TABLE 


FORMAT COMPLETE 

-ENABL 

C1Z ‘Format completed’ 
-F INMSG 


DUP WORD 


FCT USED 


«WORD 
-ASCIZ 


40014 


;DUP WORD 
*FCT used successfully’ 
TUSD 


FCT NOT USED 

WORD 40015 

ASCIZ ‘FCT was not used’ 
-FCTNOT 


° sDUP WORD 
= 
WARNING OF POSSIBLE HEAD PROBLEM 

-WORD 30020 3DUP WORD 

eASCIZ — - possible head addressing problem - run diagnostics’ 


REVECTORED LBNS 
«WORD LLEN ;LENGTH 
¢ [END OF BUFFER 
“BLKw «3 ‘CONVERT BUFFER 
= 


ASCIZ * Revectored LBNS' 


PRIMARY REVECTORS 


-WORD PLEN ;LENGTH 

WORD TO OS sEND OF BUFFER 
WORD -~ é 

-BLKW ;CONVERT BUFFER 


eASCIZ Srinory revectored LBNS' 


SECONDARY REVECTORS 


WORD SLEN 2 LENGTH 


















RCT CLEANUP OVERLAY (G4) 


58 00434 353 

59 00434 ant 3$: 
60 004350 

61 004353 SBUFE 
$¢ 004353 040 123 145 

6 000026 SLEN 
64 $ 

65 3 

66 3 

67 004375 0000 

68 004376 004403 

69 004377 030005 4$: 
70 004400 

71 004403 RCBUFE 
72 004403 040 102 141 

73 000034 RCLEN 
74 : 

75 3 

76 3 

77 : 

78 004433 0000 

004434 004441 

80 004435 030007 5$ 

81 004436 

82 004441 DBBUFE 
83 004441 040 102 141 

ge 000034 DBLEN 
86 3 

87 5 

88 00447 

89 004472 477 

90 0044 030010 6$ 

91 004474 

92 004477 XBBUFE 
93 004477 040 102 141 

ee 000034 XBLEN 
96 3 

97 : 

98 004527 000025 

99 004530 004535 

100 004531 030013 7$: 
101 004532 

102 004535 REBUFE 
103 004535 040 102 154 

104 000025 RELEN 
108 
107 : 
108 $ 
109 3 
hy 004556 000000 
113 
114 004557 104207 004203 SNDRES: 
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.WORD SBUFE sEND OF BUFFER 
WORD 30004 ‘DUP 

“BLKW [CONVERT BUFFER 
sASCIZ ¢ Secondary/tertiary revectored LBNS' 
RCT BAD BLOCKS 

.WORD RCLEN ;LENGTH 

“WORD RCBUFE TEND OF BUFFER 
“WORD 30005 {DUP WORD 

“BLKW [CONVERT BUFFER 


eASCIZ ¢ Bad blocks in the RCT area due tc data errors’ 
Ss = 


DBN BAD BLOCKS 


-WORD DBLEN sLENGTH 

-WORD DBBUFE sEND OF BUFFER 
-WORD 30007 3DUP WORD 

-BLKW 53 CONVERT BUFFER 


ASCI2 ; Bed blocks in the DBN area due to data errors’ 


XBN BAD BLOCKS 


-WORD XBLEN sLENGTH 

-WORD XBBUFE END OF BUFFER 
«WORD wis : WORD 

-BLKW CONVERT BUFFER 


eASCIZ ¢ Bad blocks in the XBN area due to data errors’ 


RETRIED BLOCKS 


-WORD RELEN sLENGTH ~. 
eWORD REBUFE sEND OF BUFFER 
-WORD 30013 DUP WORD 

-BLKW 3 ;CONVERT BUFFER 
eASCIZ ¢ Blocks retried on the check pass’ 
-DSABL LC 

END OF LIST 

-WORD O 


BUILD AND SEND STAT RESPONSES 
MOV #F INMSG,RO 


sPOINT TO *COMPLETE’* MESSAGE 


115 004561 
118 004563 
117 004564 
118 004566 
119 004570 
130 O08 376 
121 00457 
122 004575 
123 004576 
124 004600 
125 004601 
126 004603 
127 004604 
128 004606 
129 004607 
130 004611 
131 004612 
1 004614 
133 004615 
134 004617 
135 004620 
136 004621 
137 004623 
138 004624 
139 opeeke 
140 0046 
141 pees 
\*¢ 0046 
143 004634 
144 004635 
145 004636 
146 004637 
147 004640 
148 Opeces 
149 00464 
150 004647 
151 004651 
13¢ 004653 
153 004654 
154 004656 
155 004660 
156 Opec’ 
157 00466 


2 
3 


WOWooo— 
MMMIMININIWEO 


SESESESESISES 


NRNNINMWNWrwr 
R &&fOWS WOWOWO 
N VR ERNNPPPoNyns 


™m 


edt ab ee ed ad et ot 3 3 ds 4 2 


RAR RRRSK 


~™ 
Ww 
= 





000012 
004303 
001777 
001750 
001750 
002000 
002001 
002002 
002156 
004174 


000400 





XFC 
DONFCT: RETURN 
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ao 


MAINTR 

#RESTAB,R4 

#PARMTB,RS 
NB 2 


R 
R2, (R35+ 
DMBU 


oR 
#FLIPON,FLAG1 
(R3)+, 


Ri 
DECASC 


R 

MAINTR 

R2 

R2,R4 
(R4)+,R2 
SNDLP 
#BSTGS, FLAG 
USDFCT 
#FCTNOT,RO 
#LECTNT.R1 
MAINTR 
DONF CT 
#FCTUSD,RO 
#LFCTUS.R1 
MAINTR 


4 tid MESSAGE 


[POINT TO TABLE 
[PARAMETER TABLE 
“LBN'S BAD 


SSTORE IT 
: SUBTRACT STORED SECONDARIES TO GET PRIMARY 
SSTORED SECONDARY COUNT 


7s 

zRCT BAD BLOCKS 
sSTORE IT 

2DBN BAD BLOCKS 
2XBN BAD BLOCKS 
sSTORE IT 
sRETRIES 

;ST T 


: El 
sPOINT BACK TO nteaee 
Ms (FOR CONVERT) 


3GET LENGTH OF ME 


:GET_CND OF BUFFER 


sINITIALIZE THE BU 


; WORD TO CONV 
CONVERT TO ASCII 
3GET LENGTH IN R1 
;SAVE L H 


; ENGTH 
eromny TO THE NEXT MESSAGE 


GET LENGTH 
BRANCH IF NOT ZERO 
DID WE USE FCT ? 


YES = PRINT THAT MESSAG 
SLENGTH OF MESSA 
[SEND IT 


sEXI 
sPOINT TO USED MESSAGE 


LENGTH JF MESSAGE 
SEND IT 


3RETURN 
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INIT A 3 WORD BUFFER TO ASCII BLANKS 
RS => END OF BUFFER 


: 
a 004665 LRBUF: PUSH RS, R2 ZSAVE RS 
004667 104207 000003 MOV : ‘WORD COUN 
8 004671 104202 020040 MOV sai AND R2 ‘WORD OF 2 "scr! BLANKS 
9 004673 100452 CLRLP: MOV R2,=(R5) SSTORE WORD IN BUFFER 
10 004674 117407 DEC RO SDECREMENT COUNT 
11 004675 BNE CLRLP SLOOP TILL DONE 
12 004677 POP R2,R5 SRESTORE RS 
13 004701 RETURN 





4 

5 

6 

7 004703 
8 004707 
9 004711 
10 004713 
11 004716 
\¢ 004720 
13 004722 
14 004724 
15 004726 
16 004727 
17 004731 
18 004734 
19 004736 
20 004737 
21 004742 
22 004744 
23 004745 
24 004746 
25 004747 
26 004752 
27 004753 
28 004755 
29 004760 
30 poe ree 
31 00476 
32 004765 
33 004766 
34 004772 


S383 


SS SR RGR KKEKEL 
ON NO NNR for 
SINS SN SRN SR 


ee ee ed =a ceed ead ood a aS at a 
os 
=—f\J 


R 


001403 


001703 


001703 


001703 


001703 





DECASC: 
DECALP: 


1$: 


2$: 


3$: 
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CONVERT FROM BINARY TO DECIMAL ASCII 


R1 = VALUE TO BE CONVERTED 
RS => END OF BUFFER TO PUT RESULT 


PUSH RO,R2,R3,R4 zSAVE SOME REGS 

MOV R1, TEMP STORE VALUE TO BE CONVERTED 
CLR TEMP+1 sCLEAR HIGH ORDER 

MOV #16. ,DDUMMY sFOR DIVIDE BY 10 

CLR UMMY +1 CLEAR HIGH ORDER 

MOV #TEMP,R4 sDIVIDENT 

MOV #DDUMMY ,R3 ;DIVISOR 

CALL DDIV 300 THE DIVIDE 

MOV (R3) ,R2 GET REMAINDER (VALUE OF INTEREST) 
ADD #°0,R2 MAKE IT ASCII 

BIT #FLIPON,FLAG1 WHICH BYTE ARE WE ON ? 

BNE 1$ TIF SET = THEN HIGH BYTE 

MOV R2,RO :IF LOW BYTE = SAVE IN RO 

BIS #FLIPON,FLAG1 SET NOW ON HIGH BYTE 

BR 2s 3 CONT NUE 

SWAB RO 3GET fry DIGIT INTO HIGH BYTE 
BIS R2,RO OR IN LOW BYTE 

MOV RO,-(R5) STORE IT IN BUFFER 

BIC #FLIPON,FLAG1 ;SET NOW ON LOW BYTE 

MOV (R4),R1 4 hy QUOTIENT 

BNE DECALP :1F NOT ZERO THEN CONTINUE | 

BIT #FLIPON,FLAG1 SWHICH BYTE DID WE END ON ? 

BEQ 3$ 31F CLEAR THEN = WE ARE FINISHED 
SWAB :GET DIGIT IN HIGH ORDER 

BIS o\.0n .89 :SET ha LOW ORDER BLANK 

MOV RO,-(R5) URITE OUT LOW BYTE 

POP R4,R3,R2,RO RESTORE REGS 


RETURN 





SEQ 150 
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RCT CLEANUP OVERLAY 


2 
4 004774 
5 005002 
§ 005004 
005607 
8 005011 
9 005013 
10 005015 
11 005017 
ie 005021 
13 00502 
14 00502 
15 005024 
16 005026 
17 0050 
18 005033 
19 005035 
20 005037 
21 005041 
22 005043 
23 005045 
005047 
25 005051 
26 005053 
44 005055 
8 005057 
005060 
30 005062 
31 005064 
32 005066 
33 005070 
34 005072 
35 005075 
36 005077 
37 005101 
38 005103 
39 005105 
40 005107 
41 005111 
4g 005113 
43 005115 
bb 003116 
45 0051 
46 005121 
47 005123 
48 005125 
49 cht ig 
50 005131 
51 005133 
26 005135 
53 005137 
54 005141 
55 005143 
26 005145 
57 005147 





2 leserseeee 
SZ SUyesszess 


02200 


10067. 


RSSRR 
AOS 


SSGRSRESES 
RONG IRD 


$ 


SR 


a a Be at ee et a te tk ah 8 


FERRE 
= 


So 
= 
SoS 
Nr 


(G4) 


001525 
020000 


000011 


000015 
177400 
002110 


007777 


020000 
000440 


001410 


001703 


001703 


WLOOP: 


3$: 
4$: 


WRITES: 


PROCESS REVECTOR BLOCK 


: PUSHA 


#REVBUE R4 
1.TEM MP 


3,(R5)+ 
ULOOP 
#SCR,R3 
#MODE .FLAG1 
LBNT12(R3) .R2 
LowT rece) - R2 
#HIBYTE,R2- 


#CONBLK 
R2,V3(RO) 
STCVL (RS), R2 


abou 
R2,V1#1(RO) 
ae 


#CLBUF ,R2 
SFC $1Z,R0 


oc 

“MODE , FLAG1 
R3,RW.E76(R2) 
ee oe 1° Nees 
+8 RU. BUF (RO) 

#URCMD ,R3 
cee oR2 
R3 yr ne 


UNIT,R 
#URBLK RO 
#B1T15,R0 





POINT TO BUFFER 
; OUNT 


sSTORE LOW ORDER 

STORE HIGH ORDER 
sDECREMENT COUNTER 
sCONTINURE TILL DONE 

Pt i TO CHARACTERISTICS 


s1F SET THEN 576 
3GET eee FOR 512 


GH BYTE 
sPOINT TO _— BLOCK 
ZF ONVERT 
3 STARTING or 
AR REST OF 


COMMAND BLOCK 
STICK re PTR IN COMMAND BLOCK 
WRITE COMMAND 
:GET err ge! TRACK 
3SET gy WRITE 


;STORE IN COMMAND BLOCK 
GET LOW ORDER HEADER 
STORE IN WRITE BLOCK 
2GET : ORDER 


IGH 
zADD STARTING LBN BITS 
sSTORE IN WRITE BLOCK 


ET DUMMY SDI POINTER 
:POINT IN COMMAND BLOCK 
2GET HEADER PREAMBLE 
3GET DATA yy 

;GET PORT NUMBER FOR SIP 
sMAKE SURE POINTING AT BLOCK 
:SET NO REVECTORING 


a 


SEQ 151 








RCT CLEANUP OVERLAY (G4) 


58 005151 990) 

59 005152 104 3 002171 

60 005154 06000 

61 005155 115001 

o¢ eh 

63 0051 106200 000010 002167 

64 005163 

65 005165 

66 005167 

67 0051 1$: 

68 00 

0 
is: 
1$: 
CKR: 
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1$ 


TMPTRY 
DDUMMY ,R4 
#REVLEN, RG 
#64. , COUNT 
CLHERE 
RBNWRT 


CLEAR RETRY COUNT 
sRESTORE R4 

POINT TO NEXT ENTRY 
2 INC_ COUNTER 


? 
NO = REPEAT 
WRITE GOOD EDC'S TO RBN'S 


CONVERT BLOCK NUMBER TO PHYSICAL ADDRESS AND SEEK 
R4 => BLOCK NUMBER 


#CONBLK,RO 
(R4) RS 

RS, v3(RO) 
1(R4 


v3(RO) ,R1 
Ri .SECTI2 


#SS, ISEEK+2 
SEEK 

R1 

CKR 


#10.,R1 
#CONBLK , RO 
CYL(RO) ,R2 
ERRMNT 


:POINT TO CONVERT BLOCK 
iS LOW ORDR 
: ORDER 
:CLEAR HEADER 
POINT TO, SUBUNIT CHARACTERISTICS 
: RACK NUMBER 
[LOW ORDER XYLINDER 
‘HIGH ORDER CYLINDR 
‘GROUP NUMBER 


:GET V 

31F E0 TO SECT12 THEN D/XBN 
AND SEEK BIT O.k. (512) 

a toe - SET 576 BIT 


7 SEEK weg 
;CONVERT BLOCK 
SCYLINDER FAILD ON 
ERROR RETURN 
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SEQ 153, 





RBNWRT: 


MOV 


POINT TO BUFFER 


1 005307 104204 0122 #REVBUF ,R4 
: 005311 104203 011132 MOV #GDBLK ,R3 ‘POINT TO GOOD BLOCK | 
005313 104302 002132 MOV EDC, R2 :GET GOOD EDC 
4 005315 102200 02 001703 BIT #MODE , FLAG1 [WHAT MODE ARE WE IN 
5 005 BEQ 3$ SIF CLEAR THEN 512 | 
005322 100622 000440 MOV R2,RW.E76(R2) SSTORE IT 576 BUFFER 
005324 BR 4$ sSKIP 512 SETUP 
8 005526 100622 000400 3$: MOV Re, RW. EDC (R2) SSTORE IT 512 BUFF | 
9 005330 104203 001525 4$: MOV #SCR,R :POINT TO CHARACTERISTICS 
10 005352 632 MOV RENTRK(R3) R2 'GET RBN/TRACK 
11 005334 103202 177600 BIC #HIIBYTE RO [CLEAR HIGH GARBAGE 
le 005336 104207 002110 MOV #CONBLK, RO :POINT TO CONVERT BLOCK 
13 005340 100672 000004 MOV R2,V3(RO) 3FOR CONVERT 
14 005 34¢ 102200 020000 001703 BIT E, WHAT MODE 
15 00534 BNE TIF SET THEN 576 
16 005347 104632 000011 MOV LBNT12(R3) ,R2 *GET LBN/TRACK FOR 512 | 
17 005351 BR $ ‘SKIP 576 SET 
18 005353 104632 000015 1$: MOV LBNT76(R3) ,R2 :GET LBN/TRACK FOR 576 
19 005355 103202 177400 2$: BIC #HIBYT [CLEAR HIGH BY 
20 005357 100672 000005 MOV R2,V4(RO) [SET UP FOR RBN'S 
21 005361 104632 000001 MOV STCYL(R3) ,R2 ZSTARTING CLYLINDER 
22 005363 103202 007777 BIC #LO, CLEAR REST OF WORD 
23 005365 100672 000001 MOV R2,V141(RO) 3 STORE 
24 005367 114002 CLR [FOR STORE | 
25 005370 100672 000000 MOV R2,V1(RO) ‘LOW ALWAYS ZERO | 
26 005372 104640 000002 001405 RNWHER: MOV 2(R4), TEMP2 [GET LOW ORDER 
7 005375 104640 3 001406 MOV 3(R4). TEMP2+1 [GET HIGH R | 
8 005400 104040 tithe MOV R4 ,DDUMMY TSAVE R4 
29 005402 104204 001405 MOV #TEMP2,RG :FOR CONVERT 
30 005404 CALL  CVTSK ‘CONVERT AND SEEK 
31 00 104207 001373 MOV #URBLK,RO [POINT TO COMMAND BLOCK | 
32 005410 104203 122400 MOV #WRCMD.R ‘GET WRITE COMMAND 
33 005412 104308 001565 MOV CURTRK,R2 :GET CURRENT TRACK 
34 005414 10102 BIS R2,R3 :SET TRACK FOR WRIT 
35 005415 100673 000005 MOV R3,RW.CMD(RO) ZSTORE IN C Ock 
36 005417 104202 011132 MOV #GDBLK, [POINT TO BLOC 
37 005421 100672 000002 MOV R2,RW. BUF (RO) :STICK INC Ock 
005423 10414 MOV (R4) ,R3 [GET LOW ORDER HEADER 
39 005424 100673 000003 MOV R3,RW.LOWC(RO) :STORE IN WRITE BLOCK | 
40 005426 104643 000001 MOV 1(R4),R3 3GET HIGH ORDER 
005430 105303 002010 ADD ST.RBN,R3 ADD STARTING RBN BITS 
42 005432 101203 BIS #HD.RBN,R3 {GIVE RBN HEADER 
3 005434 100673 MOV R3,RW.HI CRO) sSTORE IN WRITE BLOCK | 
005436 104203 001400 MOV #HSLIM-1,R3 :GET DUMMY SDI POINTER 
005440 10067 MOV R3 Ru. DUACRO) :POINT IN COMMAND BLOCK 
46 005442 104303 002005 WRIT13: MOV PREA,R :GET HEADER PREAMBLE 
47 005444 104304 002006 MOV DPREA,R4 *GET DAT A PREAMBLE 
005446 104302 00141 MOV IT,R2 :GET PORT NUMBER FOR SIP 
49 005450 104207 00137 MOV #WRBLK RO [MAKE SURE POINTING AT BLOCK 
50 005452 101207 100000 BIS 1T15,RO :SET NO REVECTORING 
1 005454 060012 XFC SIP sWAIT FOR SECTOR PULSE | 
52 005455 104302 002171 MOV SECSIZ,R2 [SECTOR SIZE IN WORDS | 
53 005457 060003 XFC WRITE WRITE SECTOR | 
005460 115001 TST ZANY ERROR ? 
55 005461 BEQ 2$ - »SKIP RETRY 
56 005463 106300 002165 002167 CMP RETRY, TMPTRY MAX? 
57 005466 BEQ 1$ SYES - TRY SOME RECOVERY 
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58 OO 8 115400 002167 _INC TMPTRY INC RETRY COUNT 

59 00547, BR WRIT13 ; ETRY 

60 005474 104303 002170 1$: MOV RECTMP,R3 GET CURRENT ERROR RECOVERY LEVEL 

61 005476 BMI 2$ z1F NEGATIVE THEN FRIE 

o¢ 005500 115000 002166 TST RECOV 71S THERE ONLY RECOVERY LEVEL 0 ? 

63 005502 BEQ 3$ zYES = NO NEED TO ISSUE IT = JUST RETRY 

64 005504 CALL ERRHND zs TRY RECOVERY 

65 005506 114000 002167 3$: CLR TMPTRY sFOR INIT 

66 005510 117400 002170 DEC RECTMP sDECREMENT IT 

67 005512 BR WRIT13 sRETRY 

68 005514 2$: 

69 005514 114000 002167 CLR TMPTRY sRESET 

70 005516 104300 002166 002170 MOV RECOV,RECTMP DITTO 

71 005521 104304 001403 MOV DDUMMY ,R4 RESTORE R4 

72 005523 105204 ADD #REVLEN,R4 sPOINT TO NEXT ENTRY 

73 005525 115400 001410 INC TEMP 2 INC COUNTER 

74 005527 106200 000100 001410 CMP #64., TEMP $ ? 

75 005532 BNE RNWHER 3NO = REPEAT | 

76 005534 104207 002110 MOV #CONBLK ,RO 2FOR RESET 

77 005536 114002 CLR DITTO 

78 005537 100672 000005 MOV R2,V4(RO) RESET FOR NON-RBN'S 
005541 RETURN 
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SEQ 155, 
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1 ; 
g ; READ A BLOCK OF THE RCT 
; ; R4 =>BLOCK NUMBER OF RCT | 
5 005543 RRC:  PUSHA 
6 005551 114005 CLR R :CLEAR ERROR COUNTER 
7 005552 104203 001525 MOV #SCR,R3 :POINT TO CHARACTERISTICS 
8 005554 104632 000001 MOV STCYL(R3) ,R2 [GET LOW ORDER STARTING CYLINDER | 
9 005556 103202 007777 BIC #LO,R2 ZCLER REST OF WORD 
10 005560 104207 002110 MOV #CONBLK RO ‘POINT TO CONVERT BLOCK | 
11 005562 100672 000001 MOV R2,V1#1(RO) SSTORE FOR CONVERT 
12 005564 114002 CLR R2 [FOR STORE 
13 005565 100672 00 MOV R2,V1(RO) :LOW ORDER ALWAYS ZERO 
14 005567 102200 020000 001703 BIT #MODE ,FLAG1 WH MODE 
15 005572 BNE 1$ TIF SET THEN 576 
16 005574 104632 000011 MOV LBNT12(R3) ,R2 :GET LBN/TRACK FOR 512 | 
17 005576 BR 2$ :SKIP 576 
18 005600 104632 000015 1$: MOV LBNT76(R3) ,R2 [GET LBN/TRACK FOR 576 
19 005602 103202 177400 2$: BIC #HIBYTE ,R2 ZCLEAR HIGH BYTE | 
20 005604 100672 000004 MOV R2,V3(RO) ZSTORE IN CONVERT BLOCK 
21 005606 104040 001403 MOV R4 .DDUMMY : STORE BLOCK K NUMBER 
22 005610 114000 001404 CLR DDUMMY +1 [FOR STORE 
23 005612 104204 001403 MOV #DDUMMY ,R4 ‘POINT v3 ADD 
24 005614 104203 001712 MOV #HOLD RS SSTARTING RCT LBN 
25 005616 CALL DADD :GET RCT LBN 
26 005620 RCL: CALL CS ; CONVERT FCT BLOCK NUMBER AND SEEK 
27 005622 104207 001373 MOV #ROBLK RO PREPARE FOR READ SECTO 
28 005624 104203 001400 MOV #HSLIM-1,R3 SPOINTER TO DUMMY §D1 Block 
29 005626 100673 000006 MOV R3,RW.DUM(RO) [STORE IN COMMAND BLOCK | 
905630 104143 MOV (Rd), [LO ORDER BLOCK NUMBER 
31 005631 100673 000003 MOV R3,RW.LOWCRO) :STORE IN READ COMD BLOCK 
32 005633 104643 000001 MOV 1(R4)R3 ZHI ORDER BLOCK NUM AND CODE 
33 005635 105303 002007 ADD ST.LBN,R3 [ADD STARTING LBN BITS 
34 005637 100673 MOV 83° RW. HI (RO) ZSTORE IN READ CMD BLOCK 
35 005641 104203 013477 MOV #RCTBUF .R3 LOAD ADDRESS OF DATA BUFFER 
36 005643 100673 000002 MOV 5. Ru .BUF (RO) SSTORE IN COMMAND BUFFER 
37 005645 104203 013400 MOV = #RWCMD ,R3 LOAD SDI READ COMMAND 
38 005647 104301 001565 MOV CURTRK RI [GET CURRENT HEAD NUMBER IN R1 | 
39 005651 101013 BIS R1, :SET IT IN COMMAND 
40 005652 100673 000005 MOV RS, RW. CMD(RO) SSTORE BACK 
41 005654 104207 001373 READ8: MOV ROBLK,RO ZMAKE SURE POINTING AT BLOCK 
42 005656 104203 100000 MOV SRDCHD, °R3 [MARK AS ONLY REQUEST 
43 005660 100173 MOV R3_ (RO) SSTORE IN CMD BLOCK 
44 005661 104302 001412 MOV [GET PORT NUMBER FOR SIP 
45 005663 101207 100000 BIS WNT ee 3SET NO REVECTORING 
46 005665 060012 XFC SIP iWAIT FOR PULSE | 
47 005666 104302 002171 MOV SECSIZ,R2 :SECTOR SIZE IN WORDS 
48 005670 060002 XFC READ [READ 1 SECT OR | 
49 005671 115001 TST R1 ZANY ERRORS ? | 
50 005672 BNE 100$ YES = TRY _ECOVERY | 
51 005674 104673 000001 MOV RW.ER1(RO) ,R3 [GET STATUS WORD 
52 005676 102203 010000 BIT #ECCE R3 3ECC ERROR? 
53 005700 BEQ 101$ SNOPE = VERIFY EDC | 
54 005702 103200 010000 001374 BIC #ECCF RDBLK+RW.ER1 [CLEAR ECC ERROR BIT 
55 005705 CALL ECCCK [CORRECT ECC 
56 005707 115001 TST R1 : FLAG 
57 005710 BNE 100 SUNCORRECTABLE | 





005712 


a ak a tt ss et eee 


0 
0 
sive 
006066 



























104202 
104307 


102200 
106623 


106623 
106300 
115400 
104303 
115000 


115405 
106305 


104203 


114000 
104300 


~ 
Ww 
So 


$3 3 
3 = 
WWW NNN WNNWNANWDOWG 


BeSeuRe Rene 


RRRR 


013477 
002171 
020000 
000440 


000400 
002765 
002167 
002170 
002166 


002167 
002170 


001731 
001727 


002167 
002166 


002167 
002166 


001727 


001373 
122400 
001565 


00137 


001703 


002167 


002170 


002170 


101$: 


4$: 
100$: 


1$: 


3$: 


2$: 


102$: 


WRIT10: 
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#RCTBUF ,R2 
seete one 
DC 


C 

#MODE ,FLAG1 
RW.E76(R2) ,R3 
102$ 


100$ 
RW.EDC(R2) ,R3 
ane nn 
TMPTRY 

READ8 
RECTMP,R3 


RS 

FCTCPY,RS5 
RFT 
#RCTFMT,RS 
DADD 

TMPTRY 
RECOV,RECTMP 
RCL 

TMPTRY 
RECOV, RECTMP 
R5 

RLD 
#RCTFMT,RS 
DSUB 


cS 

#WRBLK ,RO 
#WRCMD RS 
CURTRK ,R2 


R2,R 

RS. RW. CMD(RO) 
CTBUF ,R3 

RS RW.BUF (RO) 


. RW.LOW(RO) 
ck 2R3 
-LBN,R3 
RS. RW. HI (RO) 
#HSLIM-1,R3 
nS RW .DUMC(RO) 
RS 


#WRBLK RO 


POINT TO BUFFER 
SECTOR SIZE IN WORDS 


;WHAT MODE ARE WE_IN 
IF CLEAR THEN 512 


eK. 
YUP ° “CONSIDER GOOD 
;NOPE - 5 RETR 


:0.K. 

:YUP - * CONSIDER G6U0D 
sMAX ? 

sYES = TRY SOME RECOVERY 
z INC ar COUNT 


300 
GET CURRENT ~-A 1) aaa LEVEL 
z1F NEGATIVE THEN FRIED 

71S THERE ONLY Te teks LEVEL 0 ? 

YES = NO _— ” O ISSUE IT = JUST RETRY 
my tape 


;DECREMENT IT 
sRETRY 


: INCREMENT BAD COUNTER 
ALL BAD ? 


:YUP = ALL OVER 

3SIZE_OF TABLE - R4 => BLOCK NUMBER 
ADD TO POINT TO NEXT COPY 

RESET RETRY LEVEL 

;DITTO ee LEVELS 

BRANCH BACK 


sFOR RESET 
pl RECOVERY LEVELS 
Y ER EXIT ? 


: STORE 
POINT TO TO BUFF 


:$ NC BLOCK 

GET LOW ORDER HEADER 

STORE IN pot BLOCK 

GET HIGH 

ZADD STARTING CaN BITS 
ef OCK 





i eS nS 


a 


UASSSSUNKSRRNGSRVOKE I Noroveins 


tt to 
—SOVOWNAOULSWN— ONAVSWN OOO 


SERRE RR RDB ERS R SORES 


gh st 
104 

06000 
115001 
106300 
115400 
104303 
115000 


100000 
002171 


002165 002167 


002167 
002170 
002166 
002167 
002170 


002166 


000016 


1$: 


3$: 


2s: 


RLD: 
RFTL: 


B 13 





UDA=52 top hin DMACR X04.01 23-AUG-82 13:14:22 PAGE 87-2 
RCT CLEANUP OVERLAY (G4) 


#81T15,R0 
SIP 
SECS1Z,R2 
WRITE 


2s 
RETRY, THPTRY 
1$ 


TMPTRY 
WRIT10 
RECTMP,R3 


RECOV 

3$ 

ERRHND 
TMPTRY 


RECTMP 
WRIT10 


R5 
RECOV, RECTMP 
RCD 


R1,R2 
#14. R1 
ERRMNT 





3} NO on tation pa 
SECTOR i IN WORDS 
WRITE SECT 


ives = ° tor SOME RECOVERY 
Y COUNT 


D0 RETR 
IGET CURRENT ERROR RECOVERY LEVEL 
21F NEGATIVE THEN FRIED 

its THERE ONLY TD tegue LEVEL 0 ? 

O ISSUE IT = JUST RETRY 


sDEREMENT COUNTER 
GET RECOVERY LEVELS 
SEE IF ANY MORE TO DO 


2XFC ERROR COD 
sRCT ye Ae 





Yon 52 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 88 


FINAL CHECK OVERLAY (H2) 


; 006155 


FWP SO OONOUS 


ab aed a te 


104200 000066 001636 


C 13 


~SBTTL FINAL a OVERLAY (H2) 


DMOVLY H2,STAR 
DO CHECK OF: 
FCT 
; RCT 
3 CORRECT HEAD ADDRESSING 
RINCHK: MOV #H2, CUROVL 
CALL - VERHD 
CALL —sFCTCK [VERIFY FCT 


RCTCK VERIFY RCT 


sMAKE THIS THE CURRENT OVERLAY 
VERIFY ALL HEADS ACCESSIBLE 





1 


& 027 
5 031 
6 033 
7 C36 
8 040 
9 004042 
0 004044 
1 047 
¢ 051 
053 
& 055 
5 057 
6 060 
7 062 
8 064 
9 004066 
0 004070 
1 073 
2 076 
3 
& 
5 
6 
7 
8 
9 


SSSSESSSSBSSSESESSSSBSSSESESSSSSSSSSS 


ee ee ood 


NADQAQQUIUUUE & & SWWNNNNN 2 2 


NOE WOOO NANE WN =O Ob 
So 


SSSEESESEISSEEEGE 


Scooonn 


UDAF52 = UDA-52 FORMATTER DMACR 
FINAL CHECK OVERLAY (H2) 


RERESSESTSEEREERES 
Sseesusuenesesssss & 


MN 


REE SEES 
Sy g 


So 
= 
INS 


baeeenaaaaneeeauaaeens a OO et 
LESESES 
SSISSS 
BENIWWWNAWAA AANA 


ieee: 


Sonoocoononoe 


~ 


FCTCK: 


MO 
FCTCLP: 
FCTCL1: 

MO 


READY: 
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X04.01 25-AUG-82 13:14:22 PAGE 89 


VERIFY FCT 


FCTCNT 
FCTNPD 
#PRMBUF , BUF PNT 
#F6,R1 


PAG 
#PRMBUF RS 
#MODE ,FLAG1 


R 

R5_ BUF PNT 
#F9,R1 

PAGE 

FCTCNT 

ST.XBN, CURXBN¢1 
ST.XBN, CURBN+1 
CURXBN 


R2,V1(R 
CYLBN+1(R3) ,R2 
R2,V1+1(RO) 
SECT12,R3 
R3,V3(RO) 

R5 

R5,NEXT1 
#TEMP,R 

CURBN, TEMP 
CURBN+1, TEMP+1 
ST .XBN. TEAP+1 
#RDBLK RO 

#Rid e 
CURTRK.R2 


OBLK,RO 
#RDCMD.R3 


UNIT,R 
R3,RW.STAT(RO) 
#B1T15,RO 


3FOR INIT 

2SO CHECK THE NULL BLOCK ALSO 
;POIN TO BUFFER 

sFCT READ OVERLA 

sREAD FIRST BLOCK 

POINT TO BU 

WHAT E 


: MOD 

:1F SET THEN 576 
2GET MODE INDICATOR FOR 512 
sSKIP 576 SETUP 

GET MODE INDICATOR FOR 576 
3 SIGNAL DONE 

STORE BUFFER POINTER 

sFCT WRITE OVERLAY 

sWRITE IT OUT 

sFOR FCTCNT INIT 

sALSO INITIALIZE XBN COUNTER 
HIGH ORDER 

20W ORDER ALWAYS 0 

zAND BLOCK NUMBER 

POINT TO CHARACTERISTICS 
POINT TO CONVERT BLOCK 
A eee CYLINDER 
2GET HIGH ORDER 

GET SECTORS/TRACK (512) 
sCLEAR WRITE ERROR COUNT 
CLEAR REPEAT COUNT 

POINT TO BLOCK 

3FOR_ CONVERSION 

DITTO 

SUBTRACT STARTING XBN BITS 
sCONVERT AND SEEK 

POINT TO COMMAND BLOCK 
3GET READ COMMAND 
:GET CURRENT TRACK 
sSET TRACK FOR WRITE 
;ST IN COMMAND 


> BLOCK 
POINT TO BUFFER 

sSTICK IN COMMAND BLOCK 
2GET LOW ORDER HEADER 
sSTORE IN WRITE BLOCK 
3GET HIGH ORDER 


: HEADER 

sSTORE IN WRITE BLOCK 
:GET DUMMY SDI POINTER 
POINT IN COMMAND BLOCK 
sMAKE SURE POINTING AT BLOCK 
GET READ 

2GET PORT NUMBER FOR SIP 


STORE 
37SET NO REVECTORING 








SEQ 160 


E 13 






UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 89-1 
FINAL CHECK OVERLAY (H2) 





58 004207 06001 XFC SIP zWAIT FOR SECTOR PULSE 
59 004210 104202 000400 MOV WSECSI6,R2 ‘SECTOR SIZE IN WORDS 
60 004 1g 06000 XFC READ SREAD SECT 
61 004213 115001 TST R1 : RROR ? 
62 004214 BNE 100$ YES = TRY RECOVERY 
63 004 16 104673 000001 MOV RW.ER1(RO)R3 iGET STATUS WORD 
64 do4ee 102203 010000 BIT #ECCE RS SECC 3 
65 004992 BEQ ~—s«*101 ‘NOPE = VERIFY EDC 
66 004224 103200 010000 001374 BIC #ECCF ,RDBLK*RW.ER1 [CLEAR ECC ERROR BIT 
67 004267 CALL ECCCK [CORRECT ECC 
68 004231 115001 TST R1 STEST FLA 
69 004232 BNE 100$ SUNCORRECTABLE 
70 004234 104202 011607 101$: MOV #PRMBUF ,R2 ‘POINT TO BUFFER 
71 004236 104207 000400 MOV #SECSI6.RO ‘SECTOR SIZE IN WORDS 
es 004240 CALL  CEDC : COMPUTE EDC 
73 004242 106623 000400 CMP RW.EDC(R2) ,R3 0.K. 
7% 004264 BEQ 102$ :YUP = “CONSIDER GOOD 
75 004246 106300 002165 002167 1008: CMP RETRY, THPTRY 
76 004251 BEQ 1$ VES = TRY SOME RECOVERY 
77 004253 115400 002167 INC TMPTRY ZINC RETRY Y COUNT 
78 004255 BR READ O RETR 
79 004¢57 104303 002170 1$: MOV RECTMP,R3 GET CURRENT ERROR RECOVERY LEVEL 
80 004261 BMI YES F NEGATIVE THEN FRIED 
81 004263 115000 092166 TST RECOV ‘Ts THERE ONLY RECOVERY LEVEL 0 ? 
82 004265 BEQ 3$ SYES = NO NEED TO ISSUE IT - JUST RETRY 
83 004267 CALL  ERRHND [TRY RECOVERY 
8 904271 114000 002167 3S: CLR TMPTRY [FOR INIT 
5 73 117400 170 DEC RECTMP SDECREMENT IT 
86 004275 READ9 SRETRY 
87 004277 102$: 
88 004277 2$: 
89 004277 115405 INC RS - INCREMENT COUNTER 
90 004 115400 001732 YES: INC NEXT1 EINCREMENT [7 
91 004302 106205 000002 CMP #2,R5 [FOUND 2 GOOD ONES ? 
92 004304 BEQ FCTCKD ‘YUP = GO TO NEXT BLOCK 
93 004306 104204 001566 MOV #CURBN,R4 [FOR ADD 
94 004310 104203 001725 MOV #FCTEMT,R3 [FOR ADD 
95 004312 CALL DAD ‘POINT TO NEXT COPY 
96 004314 114000 002167 CLR SRESET RETRY LE 
97 004316 104300 002166 002170 MOV RECOV RECTMP ‘DITTO RECOVERY LEVELS 
98 004321 106300 001731 001732 CMP FCTCPY,NEXT1 [DONE THIS SECT 
99 004324 BNE FCTCL1 [NO = WRITE NEXT FCT COPY 
100 004326 BR FCTCKE :2 NOT GOOD - TR 
101 004330 102200 002000 001702 FCTCKD: BIT #BSTGS.FLAG ;BEST GUESS ? 
108 004333 BNE 4$ YUP = ONLY CHECK FIRST BLOCK 
103 004335 060022 XFC UPDATE 3LET HOST KNOW STILL ALIVE 
104 004336 115400 001743 INC FCTCNT S INCREMENT IT 
105 004340 DUBINC CURXBN S INCREMENT IT 
106 004346 104300 00157 001596 MOV CURXBN, CURBN :GET LOW ORDER 
107 004351 104300 001573 00155 MOV CURKBNT CURBNS1 [GET HIGH ORDER 
108 004354 106300 001745 001743 CMP = FCTNPD,FCTCNT 3DONE ? | 
109 004357 FCTCLP [NOPE = DO NEXT SECTOR 
110 004361 4$: RE TURN 
111 004363 104201 000011 FCTCKE: MOV #9.,R1 ZSIGNAL ERROR 
Ie 004365 104302 001743 MOV FCTCNT,R2 sBLOCK FAILED ON 
113 004367 CALL  ERRMNT TERROR RETURN | 
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UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 90 
FINAL CHECK OVERLAY (H2) 


$ VERIFY RCT 
RCTCK: INC RCTLBN 
MOV LBNLBN,HOLD 
MOV LBNLBN+1 ,HOLD+1 
MOV ATOTRCT,R3 
MOV HOLD ,R4 
CALL  DSUB 
MOV HOLD, CURBN 
MOV HOLD, CURLBN 
MOV HOLD+1, CURBN¢1 
MOV HOLD+1, CURLBN¢1 
MOV #1, COUNT 
RCTCLP: CLR RS 
MOV R5,NEXT1 
RCTCL1: MOV #SCR,R 
BIT #MODE ,FLAG1 
BNE 1$ 
MoV LBNT12(R3) .R2 
1$: MOV LBNT76(R3) ,R2 
2$: BIC #HIBYTE ,R2 
MOV #CONBLK.RO 
MOV R2,V3(RO) 
MOV STCYL(R3) ,R2 
BIC #LO-R 
MOV R2,V1#1(RO) 
CLR R2 
MOV R2,V1(RO) 
MOV #CORBN,R4 
CALL ($1 
MOV #RDBLK RO 
MOV #RUCMD.R3 
MOV CURTRK.R2 
BIS R2,R 
MOV R3,RW.CMD(RO) 
MOV #PRMBUF .R3 
MOV R3,RW.BUF (RO) 
MOV cu N,R3 
MOV R3,RW.LOW(RO) 
MOV CURBN+1,R3 
ADD ST.LBN,R3 
BIS #HD.LBN,R3 
MOV R3,RW.Hi (RO) 
MOV #HSLIM-1,R3 
MOV R3,RW.DUM (RO) 
READ10: MOV #RDBLK RO 
MOV #ROCMD.R 
MOV UNIT, RO 
MOV R3_ (RO) 
BIS #B1T15,R0 
XFC SIP 
MOV SECSIZ,R2 
XFC READ 
TST RI 
BNE 1008 





F 13 


sCHECK NOwW-PAD PLUS NULL BLOCK 
:GET LO’ ORDER COUNT OF LBN'S 
2GET HIGH ORDER 

3FOR SUBTRACT 


DITTO 
3GET STARTING RCT LBN 
3GET — RCT BLOCK NUMBER 


sALSO SA 

:GET HIGH ORDER 

zAND SAVE 

CLEAR ERROR COUNTER 


2: INIT COPY COUNT 
—<«-.o 


TIF SET THEN 576 
3GET LBN/TRACK FOR 512 
;SKIP 576 


CLEAR HIGH BYTE 
POINT TO CONVERT BLOCK 
ONVERT 


sFOR C 
sSTARTING CLYLINDER 
CLEAR REST OF WORD 
STORE 


sFOR STORE 

;LOW ORDER ALWAYS ZERO 
3FOR CONVERT 

sCONVERT AND SEEK 
sPOINT TO COMMAND BLOCK 
3GET READ C 

3GET CURRENT TRACK 


;GET HIGH 


3 DER 
zADD STARTING LBN BITS 
ADER 


zPOINT IN COMMAND BLOCK 
sMAKE SURE POINTING AT BLOCK 
GET STATUS WORD 

A NUMBER FOR SIP 


-—< 
| 


SEQ 161! 
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UDAF52 = UDA=52 FORMATTER DMACR 
FINAL CHECK OVERLAY (H2) 


000001 
010000 


010000 


011607 
002171 


020000 
000440 





X04.01 23-AUG-82 13:14:22 PAGE 90-1 


001374 


001703 


002167 


002170 


101$: 


4$: 
100$: 


1$: 


3$: 


102$: 
2$: 


RCTNGD: 


RCTCKD: 


RCTCKE: 


RW.E76(R2) ,R3 
02$ 


00$ 
RW.EDC(R2) ,R3 
—— 
TMPTRY 

D10 
RECTMP,R3 

GD 


READ10 


TMPTRY 
RECOV,RECTMP 
#2,R5 


RCTCKD 
#CURBN,R4 

#RCTFMT RS 

DADD 

TMPTRY 

RECOV ,RECTMP 

pstne pomene 


N 
RLBN, CURBN 
CURLBN+1 , CURBN+1 
TLBN 


, COUNT 


#11.,R1 
COUNT ,R2 
ERRMNT 


GET STATUS WORD 
sECC ERROR ? 


sNOPE - VERIFY EDC 
sCLEAR ECC ERROR BIT 
RECT ECC 


ORRECTABL 
sPOINT TO BUFFER 
;SECTOR SIZE IN WORDS 
3C TE EDC 
WHAT MODE ARE WE_IN 
IF CLEAR THEN 512 


30.K. 
2YUP - “cOWSIDER GOOD 
NOPE = RETR 


20.K. ? 
A = CONSIDER GOOD 


sYES = TRY SOME RECOVERY 
ZINC RETRY COUNT 


GET CURRENT ERROR ae tare LEVEL 
:1F NEGATIVE SKIP GOOD INCREMENT 
31S THERE ONLY Fe ita LEVEL 

sYES - NO NEED T 

sTRY — 


sFOR INI 
sDECREMENT IT 
RETRY 


0? 
O ISSUE IT = JUST RETRY 


:YUP = a ga COUNTER 
s INCREMENT IT 
RESET 


reer RECOVERY LEVELS 
FOUND 2 GOOD $s? 
ie - GO TO NEXT BLOCK 


sPOINT 2 COPY 
;RESET RETR LEVEL 

sDITTO RECOVERY LEVELS 

:D HIS SECTOR ? 

;NO = READ NEXT FCT COPY 


:2_NO E 
LET HOST _ STILL ALIVE 
s INCRE NT 


OW OR 
GET HIGH ORDER 
NOPE > DO NEXT SECTOR 
sSET ERROR CODE 


RCT BLOCK FAILED ON 
ERROR RETURN 


} 


SEQ 162. 





H 13 


= = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 91 


CHECK OVERLAY (H2) 
; 
4 004734 114000 
5 004736 114000 
6 004740 114000 
? 004742 114000 
8 004744 114000 
9 004746 104200 
10 004751 104207 
11 004753 104670 
\¢ 004756 103200 
13 004761 114000 
14 004763 104207 
15 004765 104673 
16 004767 103203 
17 004771 104030 
18 004773 114000 
19 004775 104673 
20 004777 104030 
21 005001 104673 
22 005003 104030 
23 005005 104300 
24 005010 104300 
25 005013 104300 
26 005016 104300 
sf 003081 
8 005023 115001 
29 005024 
005026 104207 
1 005030 104203 
32 005032 100673 
33 005034 104303 
34 005036 100673 
35 005040 104303 
36 005042 105303 
37 005044 101203 
005 100673 
39 005050 104203 
40 005052 101303 
41 005054 100673 
905056 104203 
005060 100673 
44 005062 104207 
45 005064 104203 
6 005066 100673 
47 005070 104302 
48 Oo an7s 060012 
49 0050 104202 
50 005075 060002 
51 005076 115001 
2g 0050 
53 005101 102200 
54 005104 
55 005106 104207 
56 005110 104673 
57 005112 103203 


geessags 


= 

3 

N“N 
== 
os 


002157 


002147 
002147 


001703 


4$: 


2$: 


5$: 


VERIFY ALL HEADS ARE ACCESSIBLE 
ERRCNT 


R CURXBN 
CLR CURXBN+1 
CLR STASEC 
CLR STASEC +1 
mov #B0LST CURPNT 
MOV GRECTE CRO), GRPCNT 
BIC #HIBYT Te, GRPCNT 
CLR CURGRP 
MOV #SCR,RO 
MOV TRKGRP(RO) ,R3 
BIC #HIBYTE,R3_ 
MOV R3, TRKCNT 
CLR CURT 
MOV EYLENCRO) R3 
MOV R3,CYL 
MOV EYLENT (HOD R3 
MOV R3,CYL 
MOV SECTIOS SPC ENT 
MOV CYLNUM, ISEEK+1 
MOV CYLNUM#+1 , ISEEK+2 
MOV CURGRP, ISEEK+3 
CALL SEEK 
TST 1 
BMI SKERR 
MOV #ROBLK RO 
MOV #PRMBUF ,R3 
MOV R3,RW.BUF (RO) 
MOV CURXBN,R3 
MOV R3,RW.LOW(RO) 
MOV CURXBN+1 ,R3 
ADD ST.XBN,RS 
BIS #HD.XBN,R3 
MOV RS. Rw. HI (RO) 
MOV #RUCMD R3 
BIS URTRK RS 
MOV R3,RW.CMD(RO) 
MOV SLIM-1,R3 
MOV R3,RW.DUACRO) 
MOV #<B1T15!RDBLK>, RO 
MOV #ROCMD R3 
MOV R3,RW. STAT (RO) 
MOV UNIT, R2 
XFC SIP 
MOV #SECSI6,R2 
XFC READ 
TST R1 
BEQ 3$ 
BIT #BDTST, FLAG 
BNE 1$ 
MOV #RDBLK RO 
MOV RW. HI(RO) RB 
BIC #HD.CLR,RS 


CLEAR ERROR COUNT 


1 STARTING XBN CYLINDER 


2ST IT 
3GET tiIGH ORDER 
TORE IT 


SLOAD SECTORS/TRACK (512) 
GET LO ORDER WORD OF CYLINDER NUMBER 


LOAD HIGH ORDER WORD OF CYL 

sLOAD GROUP NUMBER 

i SEEK TO CURRENT CYL NUM 
Y ERRORS ? 


YUP = QUIT 
POINT TO —_— BLOCK 


BUFFER POINT 
3ST IT 


GET LOW RODER BLOCK NUMBER 
NC BLO 


sSTORE I 


CK 
:LOAD | HIGH ORDER BLOCK NUMBER 
zADD STARTING XBN BITS 


3 SET ‘et or ADER C 


STORE I N COMMAND BLOCK 


3GET 
zSTORE IN N_COMMAD 
sSTORE IT IN READ 


MAKE SURE POINTING AT BLOCK 
ZRESET STATUS POINTER 
3 TORE IT BACK 


TREAD 1 SECTOR 
ANY ERROR ? 
7NO = THI 


; S_HEAD 0 
;HAVE 4 MS D BA” a CODE ? 
POINT TO READ” + allan BLOCK 


3GET HEADER 
2 CLEAR HEADER 


READ C 
;SET IN TRACK NUMBER 


OMMAD BLOCK 
TO DUMMY SDI BLOCK 
BLOCK 


T PORT NUMBER FOR SIP 
?SYNCH WITH SECTOR/INDEX PULSE 
ECTOR SIZE IN WORDS 


SEQ 163 
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UDAF52 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 91-1 
FINAL CHECK OVERLAY (H2) 


58 005114 


#HD.BAD,R3 

R3,RW.HI (RO) 

#BOTST,FLAGI 

#BDTST FLAG1 
CCNT 


CURPNT RO 


*aDTSt FLAG1 
SECT12, TEMP 


—— 


STASEC » CURXBN 
Sectie,sécent 


TiKGEP CRO) oR3 
as TR KeNT 


(R5) +, STASEC#1 
(R5)¢. 

(R5) +, CURTRK 
XBNCYL (RO) ,CNTCYL 
SECTCY, TEMP 


FiEMP R3 
#STASEC,R4 


SECT12,SECCNT 
STASEC ,CURXBN 


:SToRe 1 BAD _ CODE 

3SET THAT * TRIED BAD HEADER CODE 
ZAND TRY R 
:CLEAR 5 4 ++ 3 FLAG 


sTRY IT ein be NEXT SECTOR 
POINTER TO 

:STORE STARTING SECTOR NUMBER 
GET HIGH ORDER 


Ger CURRENT GROUP 
GET CURRENT TRACK 


78 R 
3 INCREMENT 
ich AR FLAG iN CASE iT WAS SET 


iets Bion dae SECTOR NUMBER 


:GET 
POINT. TO. CHARACTERISTICS 

XBN CYLINDERS 
;DECREMENT FOR ONE ALREADY DONE 


CLEAR nie pecan 


iGer SECTOR wet a NEXT CYLINDER 
RESET SECTOR 
RESET SECTOR 





> 


ee a ce ee ee ee ee ee ee ce ee ee ce me ee ee me ed ee ee ee ce ee ce ee me ee ce ce ee ed ee ee ed ee ee ed ed ee ed eed eed eed ed 3 


C 

15 005 

16 00531 
17 $0338 
18 0053 
19 ott 
20 0053 
21 005334 
§ 005335 
23 005337 
24 005341 
25 005343 
26 005345 
27 005347 
28 005351 
29 005353 
30 005355 
31 005357 
32 005361 
33 005363 
34 005365 
35 005367 
36 005371 
37 005373 
38 005375 
39 005377 
40 005401 
41 005403 
42 005404 
43 005406 
44 005407 
45 005410 
46 005412 
47 005415 
48 005417 
49 005421 
50 005423 
51 005425 
52 staat 
53 005431 
54 005434 
55 005436 
56 005441 
57 005447 
58 005451 
59 005453 
60 005455 
61 005457 
o¢ 005461 
63 005464 
64 005466 
65 005470 
66 005472 
67 005474 
68 005476 
69 005477 
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X04.01 23-AUG-82 13:14:22 PAGE 91-2 


11$: 


16$: 


001703 


001703 


001703 17$: 


001703 10$: 


15$: 
12$: 


STASEC+1, CURXBN+1 
CYLNUM 
CYLNUM, ISEEK+1 


CYLNUM#+1 , ISEEK+2 
St gale ,ISEEK+3 


SKERR 

#ROBLK ,RO 
#PRMBUF , 
R3,RW.BUF (RO) 


XBN 

sT.XBN RS 
#HD.XBN, 

RS. Rw. HI (RO) 
#RUCMD, 

CURTRK.R3 

RS. Ru. CMD «ROD 


1,R3 
RS Ru. UMCRO) 
A<bIiStRDBLE>, RO 


ROC 
R3,RW. STAT CRO) 
UNIT ,R2 
SIP 
#SECSI6,R2 
READ 
R1 
10$ 
#BDTST FLAG 
17$ 


#BOTST,FLAGI 


1 
#BDTST,FLAG1 
CURXBN 
SECCNT 


11$ 
CNTCYL 
12$ 


13$ 
#BDOLST,FLAG1 
ir mad 


N,RO 


#UR 
#WRNLN,R1 
MAINTR 
15$ 


sRESET HIGH ORDER 
2 eee CYLINDER NUMBER 
GET LO ORDER WORD OF CYLINDER NUMBER 
3LOAD NIGH ORDER WORD OF CYL NUM 
GR NUMBE 


: ouP 
SEEK TO CURRENT CYL NUM 
sANY ERRORS ? 
sYUP = QUIT 
POINT TO READ COMMAND BLOCK 
3 A lh ae NTER 
seer LOW RODER BLOCK NUMBER 
sSTORE IN COMMAND BL 
LOAD HIGH ORDER tte: NUMBER 
zADD STARTING XBN BITS 
SET IN XBN HEADER CODE 

ORE IN COMMAND BLOCK 
GET READ 
:SET Fon che NUMBER 


N_COMMAD BLOCK 
POINT ER TO woe SDI BLOCK 
STORE IT IN READ BLOCK 
MAKE SURE POINTING AT BLOCK 
RESET STATUS POINTER 
STORE IT BACK 
GET PORT NUMBER FOR SIP 
;SYNCH WITH SECTOR/INDEX PULSE 
SECTOR SIZE IN WORDS 
sREAD 1 SECT 

Y ERROR ? 


3NO = THIS HEAD 0.Kk 

HAVE WE Mi san “HEADER CODE ? 

zYUP = DON'T AGAIN 

POINT TO READ” CONTROL BLOCK 

7GET HEADER WORD 

CLEAR HEADER 

3SET IN BAD HEADER CODE 

STORE IT BACK 

sSET THAT WE TRIED BAD HEADER CODE 
TRY READ AGAI 

CL LEAR BAD HEADER TESTED FLAG 

INCREMENT CURRENT SECTOR 


ME COUNT 
SFAILED ON ALL sey Fens ~ SEND WARNING 
TRY NEXT CYLI 
:CLEAR FLAG IN CASE IT WAS SET 
;DECREMENT ERROR COUNT 
CONTINUE TILL DONE ALL 
sALL_ DONE RETURN 
ADDRESS OF WARNING 
e LENGTH OF WARNING 
sSEND IT 





sss 
PPP AAA ASSAM 
WW IIs o aa OOOO 


w 
w pete er deny 
So 


$88888S8S8SSSsS38ssss 
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Ssss 
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viwi w 
Min 
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2338 
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1$: 


CKR1: 
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FINAL CHECK OVERLAY (H2) 


4 
5 
6 
7 
8 
9 
0 
} 
3 
4 
5 
6 
7 
8 
9 
0 
5 
3 
4 
5 
6 
7 
8 


gee gy! BLOCK NUMBER TO PHYSICAL ADDRESS AND SEEK 
4 -> BLOCK NUMBER 


MOV #CONBLK ,RO zPOINT TO CONVERT BLOCK 
OW ORDR 


MOV (R4)R3_ “GET L 
MOV R3,VO(RO) : STORE 
MOV 1(R4),R :HIGH ORDER 
BIC #HD.CLR,R3 [CLEAR HEADER 
MOV R3,V2+1 (RO) * STORE 
MOV SCR,R :POINT TO SUBUNIT CHARACTERISTICS 
XFC CVT ; CONVERT IT 
MOV TRK (RO), CURTRK 3GET T RACK NUMBER 
MOV CYL(RO) . ISEEK+1 :LOW ORDER XYLINDER 
MOV CvL +1 (RO) .ISEEK+2 THIGH ORDER CYLIND 
MOV GRP(RO), ISEEK+3 [GROUP NUMBER 
BIT #MODE ,FLAG1 [WHAT MODE ARE WE IN 
BEQ 1$ 7512 = SEEK BIT O.K. 
MOV v3(RO),R1 [GET VARIABLE 3 
CMP R1,SECTI2 iF fe TO SECT12 THEN D/XB8N 
BEQ 1$° D SEEK BIT O.k. (512) 
BIS #SS, ISEEK+2 ‘ELSE L/RBN = SET *576 BIT 
CALL SEEK [DO SEEK 
TST R1 TANY ERROR 
BNE _—CKR1 YUP 
ETURN 
Vv ZSEEK ERROR 
MOV Ah Pg RO [CONVERT BLOCK 
MOV CYL (RO) .R2 [CYLINDER FAILD ON 
CALL — ERRMNT TERROR RETURN 


SEQ 166 





¢ 005570 
4 

5 

6 

7 004614 
8 004017 
9 004020 
10 004022 
11 004024 
ie 004026 
13 004030 
14 004032 
15 004034 
16 004036 
17 004040 
18 004042 
19 004044 
20 004046 
21 004050 
22 004052 
23 004053 
24 004055 
25 004057 
26 004061 
27 004063 
28 004065 
29 004067 
30 004071 
31 004072 
32 004074 
33 004075 
34 004077 
35 004101 
36 004103 
37 004105 
38 004107 
39 004111 
40 004113 
41 006115 
42 004117 
43 004121 
44 004123 
45 004125 
46 004126 
47 004130 
48 004131 
49 004132 
50 004134 
51 004137 
52 004141 
53 004143 
54 004145 
55 004147 
56 004151 
57 004153 


RRR FPLEF 
s 


A 
Bekstees ByS8 


ow 
WWW AANA NW OND WWW Ow 


rete ce Ses 


TO ee ee eet 
Ride te Sit spe Ete 


: 


060003 


000030 001636 écturT: 


002165 
002167 
002170 
002166 


002167 


FCTRLP: 


4$: 


WRITES: 


1$: 
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FCT WRITE OVERLAY (F9) 


-SBTTL FCT WRITE OVERLAY (F9) 
DMOVLY F9,START 


WRITE AN FCT BLOCK 


#F9, CUROVL 
R5 


RS ,NEXT1 
#FCTCNT,R4 
#ONE ,R3 


RS,R 
#SECSI6,RO 
R3,RW.EDC(R2) 
#URBLK,R 
R2,RW.BUF (RO) 
#URCMD RS 
CURTRK R2 

R3 Ru CHD(RO) 
R3,RW.LOW(RO) 
1(R4).R3 


SI 

#SECSI6,R2 

WRITE 

R1 

FWGOOD 

anita 
ITES 


WR 
RECTMP,R3 
RECOV 

3$ 





zFOR INIT 

CLEAR ERROR COUNTER 

INIT NEXT COPY COUNTER 
POINT TO FCT BLOCK NUMBER 
;FOR SUB 


:SUB TO GET RIGHT ONE 
GET BUFFER POINTER 
:GET LON CYLINDERS 
POINT TO CONVERT BLOCK 
STORE FOR CONVERT 

+t HIGH ORDER 


: E 
2GET SECTORS/TRACK (512) 
;STORE IT 


Ss 
2C DC = RETURNED IN R3 
STORE IT IN THE BUFFER 
zPOINT TO COMMAND BLOCK 
STICK BUFFEk PTR IN COMMAND BLOCK 
GET WRITE COMMAND 
GET CURRENT TRACK 
2 SET ey FOR WRITE 


3SE 

STORE IN WRITE BLOCK 
GET DUMMY SDI POINTER 
POINT IN COMMAND BLOC 
2GET HEADER PREAMBLE 
GET DATA PREAMBLE 


TYES = TRY SOME RECOVERY 
SINC RETRY COUNT 


200 

2GET CURRENT ERROR RECOVERY LEVEL 

:IF NEGATIVE THEN FRIED 

21S THERE ONLY RECOVERY LEVEL 0 ? 

sYES = NO NEED TO ISSUE IT = JUST RETRY 








SEG 167 











SEQ 168) 
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OVERLAY (F9) 


nn 
as 
4b 
wn 
Eh 
- 
—t 
Mm 


58 004155 CALL ERRHND :TRY RECOVERY | 
59 004157 114000 002167 3$: CLR =‘ TMPTRY FOR INIT | 
60 004161 117400 002170 DEC  ——- REC TMP ;DECREMENT IT 
61 004163 BR WRITES :RETR 
6¢ 004165 2s: 
63 004165 115405 INC —s RS YUP = JINCREMENT COUNTER 
64 004166 115400 001732 FWwGOOD: INC —NEXT1 ZINCREMENT IT | 
65 004170 114000 002167 CLR ss TMPTRY RESET 
66 004172 104300 002166 002170 MOV —« RECOV, RECTMP :GET RECOVERY LEVELS 
67 004175 104204 0017 MOV = #FCTCNT, RG ZFOR A 
68 004177 104203 001725 MOV = #FCTFMT-R3 FOR ADD 
69 004201 CALL DADD POINT TO NEXT COPY 
70 004203 106300 001731 001732 CMP = FCTCPY,,NEXT1 DONE THIS SECTOR ? 
71 004206 BNE —- FCTRLP NO ~ WRITE NEXT FCT COPY 
72 004210 106305 001731 CMP = FCTCPY,R5 ERROR ON EVERY WRITE ? 
73 004212 BEQ  — FCWERR ;YUP = BIG TROUBLE 
74 004214 104303 001732 FCFXLP: MOV —-NEXT1,R3 ZANY REAPEATS ? 
75 004216 BEQ = FWTDON 0 

004220 104204 001743 MOV —- #FCTCNT, RG :T0 GET IT BACK 
77 004222 104203 001725 MOV ss #FC TFT. R3 :DITTO 
78 004224 CALL SUB 
79 004226 117400 001732 DEC —NEXT1 ;SUB_IT 
80 004230 BR FCFXLP ;REPEAT 
81 004232 FWIDON: DUBINC FCTCNT PUT BACK THE WAY IT WAS 
B82 004240 RETURN | 
83 004242 104012 FCWERR: MOV —-R1, R2 :XFC ERROR CODE 
84 004248 
85 004245 CALL —_ ERRMNT ZERROR RETURN 





104201 000017 MOV #15. ,R1 RCT WRITE ERROR 
| 


-—— 
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SEQ 169 
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PBN->D,X,L.RBN CONVERSION OVERLAY (G5) 


-SBTTL PBN->D,X,L,RBN CONVERSION OVERLAY (G5) 


: 004247 DMOVLY G5,START 
$ : CONVERT FROM PBN TO D,X,L,RBN | 
6 004014 103200 170000 001564 PCON: BIC #HD.CLR, CURPBN+1 ZCLEAR THE HEADER | 
7 004617 104203 001637 MOV #HGHPBN,R3 ZHIGHEST PBN IN LBN AREA | 
8 004021 104204 001563 MOV #CURPBN,R& ZCURRENT PBN 
9 004023 CALL DCP :IS IT LEN OR RBN ? | 
10 004025 BPL LRBN :YUP = GO COMPUTE IT 
11 004027 CALL  DSUB :SUBTRACT HIGH LBN PBN 
12 004031 104203 001622 MOV #XBNSEC,R3 ;TOTAL XBN SECTORS 
13 004033 CALL DCMP 71S IT AN XBN ? 
14 004035 BMI XBNFND ZYUP = GO FIXIT 
15 004037 104204 001563 MOV #CURPBN, R4 ZELSE DBN = GET VALUE 
16 004041 104203 001622 MOV #XBNSEC,R3 ZTOTAL XBN SECTORS 
17 004043 CALL  DSUB ;SUBTRACT TO GET RELATIVE DBN 
18 004045 CALL  CONGRP ZCOMPUTE THE "‘OFFSET’’ SECTOR 
19 004047 104203 001606 MOV ASECTRK,R3 : SECTORS/TRACK 
20 004051 104204 001563 MOV #CURPBN, R4 : TRACK 
21 004053 CALL DMUL ZMULTIPLY TO GET STARTING PBN ON TRACK 
22 004055 104203 001403 MOV #DDUMMY ,R3 ZSECTOR ON TRACK 
23 004057 CALL _ DADD ‘ADD TO GET ACTUAL PBN 
24 004061 104641 000001 MOV 1(R4),R1 :GET HIGH ORDER 
25 004063 105301 002012 ADD ST.DBN,R1 ZADD TO GET ABSOLUTE DBN 
26 004065 103201 170000 BIC #HD.CLR,R1 [CLEAR THE HEADER 
27 004067 101201 140000 BIS #HD.OBN,R1 :MARK AS DBN 
28 004071 104010 001564 MOV R1, CURPBN+1 :STORE BACK 
29 004073 BR PDONE [CLEAN UP AND RETURN 
30 004075 XBNFND: CALL = CONGRP :COMPUTE THE "‘OFFSET'’ SECTOR 
31 004077 104203 001606 MOV #SECTRK,R3 : SECTORS/ TRACK 
32 004101 104204 001563 MOV #CURPBN,R4 3 TRACK 
33 004103 CALL  DMUL :MULTIPLY TO GET STARTING PBN ON TRACK 
34 004105 104203 001403 MOV #DDUMMY ,R3 ZSECTOR ON TRACK 
35 004107 CALL DADD ‘ADD TO GET ACTUAL PBN 
36 004111 104641 000001 MOV 1(R4),R1 :GET HIGH ORDER 
37 004113 105301 002011 ADD ST.XBN,R1 :ADD TO GET ABSOLUTE XBN 
38 004115 103201 170000 BIC #HD.CLR,R1 *CLEAR HEADER 
39 004117 101201 120000 BIS #HD.XBN,R1 :MARK AS XBN 
40 004121 010 001564 MOV R1, CURPBN¢1 :STORE BACK 
1 004123 BR PDONE [CLEAN UP AND RETURN 
43 ; 
44 004125 LRBN: CALL  CONGRP ZCOMPUTE THE OFFSET SECTOR 
45 004127 104205 001525 MOV #SCRLRS :POINT TO CHARACTERISTICS 
46 004131 102200 020000 001703 BIT #MODE ,FLAG1 ‘WHAT MODE 
47 004134 BNE :1F SET THEN | 
48 004136 104653 000011 MOV LBNT12(R5),R3 *GET LBN/TRACK FOR 512 
49 004140 BR :SKIP 576 SETU 
50 004142 104653 000015 1$: MOV LBNT76(R5) ,R3 [GET LBN/TRACK FOR 576 
51 004144 103203 177400 2s: BIC #HIBYTE,R3 CLEAR HIGH BY 
52 004146 104201 001403 MOV #ODUMMY.R1 sPOINT TO REMAINDER | 
53 004150 104114 MOV (R1),R4 :GET I 
54 004151 106043 CMP 3 : COMPARE 
55 004152 BMI LBNFND :IF MINUS THEN LBN 
56 004154 104653 000004 MOV RBNTRK(RS) -R3 7GET RBN/TRACK 
57 004156 103203 177600 BIC #HIIBYTE RS [CLEAR OUT GARBAGE 





' 
| 
| 
} 


— 
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a3 


















52 904160 104030 00141 a3, TEMP : 

59 004162 114 001411 P+ : E 

60 004164 10420 001410 MOV HERP R3 : TIPLY 

61 004166 104204 00156 MOV #CURPBN, R4 ZDITTO = NUM OF TRACKS 
be 004170 CALL DMUL SMULTIPLY BY TRACK NUMBER 
63 004172 104204 001403 MOV #ODUMMY , RG [FOR SUBRACT 

64 004174 102200 020000 001703 BIT #MODE , FLAG1 AT MODE 

65 004177 BNE SIF SET THEN 576 

66 904201 104653 000011 MOV LBNT12(R5) ,R3 3GET LBN/TRACK FOR 512 
67 004203 BR ‘SKIP 576 SETUP 

68 004205 104653 000015 3$: MOV LBNT76(R5) ,R3 *GET LBN/TRACK FOR 576 
69 004207 103203 177400 4$: BIC #HIBYTE,R3- *CLEAR HIGH BYTE 

70 004211 104030 001410 MOV 3, TEMP SSTORE IT 

71 006213 114000 001411 CLR TEMP +1 [FOR CLEAR 

72 004215 104203 001410 MOV #TEMP,R3 ‘POINT FOR SUBTRACT 

73 004217 CALL  DSUB i SUBTRACT TO GET RESIDUE RBN 
74 004221 104204 001563 MOV #CURPBN, R4 310 GET RBN NUMBER 

75 004223 104203 001403 MOV #DDUMMY .R3 

76 004225 CALL ADD SGIVES RELATIVE RBN 

77 004227 104641 1 MOV 1(R4),R1 GET HI 

78 004231 105301 002010 ADD -RBN,R1 [ADD 70 GET ABSOLUTE RBN 
79 004233 103201 17 BIC D.CLR,R1 [CLEAR TH EHADER 

80 004235 101201 0600 BIS <RBN,R1 [SET AS A RBN 

81 004237 104010 001564 MOV R1,CURPBN+1 SSTORE BACK 

82 004241 BR E [CLEAN UP AND RETURN 

Bs 004243 104204 001563 LENFND: MOV #CURPBN, RG :MULT NUM OF TRACKS 

86 004245 102200 020000 001703 BIT #MODE , FLAG1 WHAT 

87 004250 BNE SIF SET THEN 5 

88 004252 104653 000011 MOV LBNT12(R5) ,R3 !GET LBN/TRACK FOR 512 
89 004254 BR ‘SKIP 576 SET 

90 004256 104653 000015 1$: MOV LBNT76(R5) ,R3 [GET LBN/TRACK FOR 576 
91 004260 103203 177400 2$: BIC #HIBYTE,R3_ [CLEAR HIGH BY 

92 004262 104030 001410 MOV R3,TEMP. SSTORE IT 

93 004264 114000 001411 CLR TEMP+1 [FOR CLEAR 

94 004266 104203 001410 MOV #TEMP,R3 SPOINT FOR MULT 

95 004270 CALL = DMUL [GET LBN'S 

96 004272 104203 001403 MOV #DDUMMY ,R3 [PLUS RESIDUE 

97 004274 CALL DADD [GIVES LBN NUMBER 

98 004276 104207 001525 MOV #SCR,RO [POINT TO CHARACTERISTICS 
99 004 104641 01 MOV 1(R45,R1 :GET HIGH ORDER 

100 004302 105301 002007 ADD ST.LBN,R1 D TO GET ABSOLUTE LBN 
101 004304 103201 170000 BIC #HD.CLR,R1 CLEAR H HEADER 

102 004306 101201 BIS #HD.LBN,R1 iSET AS L 

103 004310 104010 001564 MOV R1,CURPBN¢1 SSTORE BACK 

104 004312 104300 001563 001566 PDONE: MOV CURPBN, CURBN [GET LOW ORDER 

105 004315 104300 001564 MOV CURPBN+1 , CURBN¢1 ‘HIGH ORDER 

106 004320 RETURN 
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001403 éoNGRP: ' 


1$: 


3$: 


6$: 
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SECTRK ,DDUMMY 
DDUMMY +1 
#DDUMMY .R3 
ns 


#SCR,RO 
TRKGRP(RO) ,R1 
#HIBYTE ,R1 
R1,(R3) 

DDIV 

(R4),R1 

1(R4) ,R1 

4$ 

#SCR,RO 
GRPCYL(RO) ,R1 
#HIBYTE,R1 
R1,(R3) 

DOIV 

ym 
#SCR,RO 

#MODE ,FLAG1 
OF FS76(R3) ,R2 
OFFS12(R3),R2 
#HIBYTE ,R2 

R2 


4$ 
R2,(R4) 
Re 

Re, 1(R4) 
DMUL 


R2 

(R4) RS 
RS 

R5.(R4) 


R2,1(R4) 
SECTRE RI 


R2.1(R3) 


C 14 


; 0 
sDIVIDE PBN 
» 


AGA 
IS _ LOW OR 


sYES - 
3sGET C 
POINT TO 


POINT TO CHARAC 
:GET GROUPS/CYLI 


CLEAR OUT GARBAGE 
sSTORE GROUPS/CYLINDE 

sDIVIDE TO GET RELATIVE GROUP 
; GROUP NUMBE 


ZERO THEN DONE = NO OFFSET 
tag TO CHARACTERISTICS 


REO 
EAR HIGH ORDER 
OR*S/TRACK 


3FOR MOD FUNCTION 
2CLEAR HIGH ORDER 





COMPUTE TRACK NUMBER AND SECTOR NUMBER INCLUDING OFFSET 


3GET SECTORS/TRACK 
CLEAR HIGH ORDER 
;FOR DIVIDE 


oped SECTOR 


MODE 
EAR THEN 512 
: OFFSET (576) 


Sk 
GET GROUP OFFSET (512) 
GET INTO LOWBYTE 
CLEAR HIGH GARBAGC 
zANY OFFSET ? 





ET 
ADD TO al SECTOR NUMBER 





/SECTRK TO GET TRACK # 
TRACK 


N 

DER TRACK 0 ? 

NOPE = TRACK # CAN'T BE 

21S HIGH ORDER TRACK 0 ? 

NO OFFSET OR NEED TO GO ON 
NUMBER 


CHARACTERISTICS BLOCK 
KS/GROUP 


FFSET 
TERISTICS 
NDER 


UDAF52 = 


58 004453 


68 004471 


UDA=52 FORMATTER DMACR X04. 
PBN->D,X,L.RBN CONVERSION OVERLAY (G 
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+ ta 
R1,1(R4) 
Ri, (R4) 


1 
R1,(R3) 
R1,1(R3) 
5$ 





sREMAINDER IS NEW SECTOR NUMBER 
:RESTORE TRACK NUMBER LOW 


7s 
RESTORE TRACK NUMBER HIGH 
STORE IT 


3FOR STORE 
CLEAR HIGH ORDER 
;AND EXIT 
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SEQ 173 
UDAF52 = UDA=52 FORMATTER DMACR 04.01 23-AUG-82 13:14:22 PAGE 96 
ERROR MESSAGE OVERLAY (G6) 

j ~SBTTL ERROR MESSAGE OVERLAY (G6) 

; ; ERROR MESSAGE OVERLAY 

3 004473 ; DMOVLY G6,START 

£ 904614 104207 001750 ; MOV #OMBUF ,RO :POINT TO BUFFER 
8 004016 104671 000001 MOV 1(RO),R1 :GET SUB CODE 

9 004020 104172 MOV (RO) ,R2 :GET ER RO NUMBER 
10 004021 117402 DEC R2 :MAKE RELATIVE TO 0 
11 004022 110202 ROL R2 SMULTIPLY BY 

I 004023 10520¢ 004464 ADD #ERRTBL,R2 ZOFFSET TO MESSAGE ADDRESS 
13 004025 10412 MOV (R2) ,RO ;MESSA GE TO SEND 
14 004026 104621 000001 MOV 1(R25,R1 :LENGTH OF MESSAGE 
15 004030 060016 XFC MAINTR + SEND 

16 004031 RETURN 60 BACK AND DIE 
18 -ENABL LC 

19 004033 050001 M.ER1: .WORD 50001 
20 004034 107 105 124 easciz ‘GET STATUS failure” 

21 FERRARA EAAEAEEEAEEEAEEEEEEEEEEEREREREREREREEERE. EEREEEKEEE 
22 004046 050002 M.ER2: .WORD 50002 
23 004047 123 104 111 easciz ‘SDI send error’ 

24 SERRA EAEAERAEEEEEEREEEEEEEEEREEEEERERRAEEEEEEEEEKEEEEREEE 
25 004057 050003 M.ER3: .WORD 50003 

26 004 125 156 163 “asciz “Unsuccessful SDI command’ 

7 SRERAEAARERAEEAAEAAAEEAEEEEAEAEEAAAEEAEAAAAEAEAEAEEREEREREEEEE 
$s 004075 050004 M.ER4: .WORD 50004 
29 004076 123 104 111 easciz ‘SDI receive error’’ 

30 SRRAAAAERAEAEAEEAAEEEREEEEEEEAAEEEERAEEAEAEEEEREEEEEEERERE 
31 004107 050005 M.ERS: .WORD 50005 

32 004110 125 116 111 ‘asciz ‘“UNIBUS I/O error’ 

33 FERRARA AEEEEREREEAEREREAAEEAEEEEERAREREREREREEREEREREE 
34 004121 050006 M.ER6: .WORD 50006 

35 004122 106 157 162 easciz ‘formatter initialization error’’ 

KY.) J RFRA EEAEEEREEAEAEEEEAEEEEEAEAAEEEAAEREREREEREEAAEREEEEEE 
37 004142 050007 M.ER7: .WORD 50007 

38 004143 116 157 156 easciz ‘Non-existant unit number’ 

39 ER Ro be on Re I ow 5 EE TR 
40 004160 050010 M.ER8: .WORD 50010 
41 004161 104 102 116 -asciz ‘DBN/XBN format error (FORMAT XFC failed)’’ 
42 J RAAARARAAAAEAEAEAEEREEAEAAEEEEEAEEEEEEEEREREEARREEEEEEEEE 
43 004206 050011 M.ER9: .WORD 50011 
44 004207 106 103 124 easciz ‘FCT check error’ 
45 SRERAEAAAAAEAAEEEEEEEEEAEEEAEAREAAAAAAEAAEAEREEEREREREAEEEEE 
46 004217 050012 M.ER10: .WORD 50012 
47 004220 123 105 105 sasciz ‘SEEK error’ 
48 SREAEAAERAEAEAAERAEEEAAEAAEAEEEEAAEEAEARAEAERAAEEEEAEEREEAREEREE 
49 004226 050013 M.ER11: .WORD 50013 

50 004227 122 103 124 easciz ‘RCT check error” 

51 SREEAAAAAAEAAAAAAAAEEEEAAEEAEAEEEEAEAARAEEAEREEEEERERERAERE 
$2 004237 050014 M.ER12: .WORD 50014 

53 004240 114 102 116 easciz ‘BN format error (FORMAT XFC failed)’ 
4 SREAAAAAAAAEAERAAAAAEAEAAEEAERARAEAAAAARAEAEAREREREEEKRERERE 
55 004263 050015 M.ER13: .WORD 50015 


36 004264 106 103 124 sciz ‘FCT write error’ 


Eee. b. AO Aka. A 4 ee 











UDAF52 = 
ERROR MESSAGE OVERLAY ( 


58 004274 
59 004275 


050016 
122 
050017 
122 
050093 
122 
050021 
106 


050022 
106 


050023. 
106 


050024 
104 
050025 
111 


050026 
104 


103 


103 


103 


103 


103 


103 


162 


156 


162 





UDA=52 cee tees DMACR x04.01 


124 
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151 


166 
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M.ER14: .WORD 50016 
easciz ‘RCT read error’ 
SRREARAAEAAAAAEREAAEAEAEAEERERETEEAAERARERERERAEEAREEEEEEEEE 
M.ERIS: .WORD 50017 
ciz ‘RCT write error’ 
joeseveesevensensccseceaesererssessseneneeseonooessenens 


M.ER16: .WORD 50020 


sasciz “RCT full" 
fF RARAAAERAAAAEEAEEAEAEEEEEEEAEEEREREAEEEEREEEEREREREREEEE 
M.ER17: .WORD 50021 

“asciz “FCT read error’ 


SERRA EEAEEAEEEEEEREEEEEEEEEEEEEREEAEEAEEREKRAEEREREEEEREE 
M.ER18: .WORD 50022 
casciz “FCT non-existant’ 
SRRAAAAEAAAAAAEAAEAREREEEEEEEEEEEAAAERAEEEEEREREEEEEEEEEEE 
M.ER19: .WORD 50023 - 
casciz “FCT Down Line Load error (FCT block not avbl.) 
Ske eee ee eee 
M.ERcO: 50024 pe 
Secte Drive init timeout 
ssdantaakassubasaenentanssatanenerenhbbhansihe inanimate 
M.ER21: .WORD 50025 
asciz ‘Invalid response to question’ 
seeeeeeeeeeeeeneeeeeeeeRerteeerreeeeeeeeneeeeereneeeener 
M.ER22: .WORD 50026 ee 
-asciz ‘Drive does not support 576 format on this media 


SRERAEEAEAEAEEARAREEEEEEEEAEEAEEEREEAEREEEREAEEAEEREEEEEE 


M.ER23 


" .DSABL LC 





F 14 


SEQ 174 


SoS. 
ar 


BREESE 
SAN NN SO 
Lv? =-—o 


PERESESESESEPER ESE SEE ES 
SURES UE ER ORS S IS 


PAAAAAAMAAMAMAM AU & 


WUISVRARUN LSS 


SELSRPEH ES SSSA SVAVRRNON VTS LIT RNAS cavern 
RESRSEEPEE REESE EEE EES 


3 
4 
& 
4 
4 
4 
& 
“ 
& 
4 
4 





004107 


ae 


: 
g 


000026 


seceteees 


ak $ 
BESBSR ese 


SPSreresess 
Wonws— 


31 


: 


ERRTBL: 





ERROR MESSAGE POINTER TABLE 


: 
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UDAF52 = UDA=52 st apeghs A DMACR X04.01 23-AUG=82 13:14:22 PAGE 97 
ERROR MESSAGE OVERLAY ( 


ERI 

Pepe 
: “M.ER2 
e “M.ERS 
RS-M.ERS 
RS 

+ meee 
+ aaataae 
8-M.ER7 
9-M. ERS 


R 

R 

R 

R 

R 
R10-M.ERO 
R10 
R 
R 
R 
R 
R 
R 


-- Oo 


11-.ER10 
-M.ER11 


E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
3 13-M.ER12 


ab ed ed 
WWNN— 


= 


{ea ERtS 
15-M.ER14 
6-M.ER15 
7-M.ER16 
18-M.ER17 


19-M.ER18 


AOw 


1 
1 
1 
1 
1 


~ 


BSSSTSTFSESTETEBEESESEEESEEBEBZETZEBETE 
MMMMMMMMMMMMMmMmMMmMmen 





G 14 


sMESSAGE 1 


; GE 
:LENGTH OF 
SMESSA 
:LENGTH oF 
;LENGTH OF 
TLENGTH OF 
:LENGTH OF 
[LENGTH OF 
ZMESSAGE 1 
[LENGTH OF 
SAGE 1 
tLENGTH OF 
[LENGTH OF 
[LENGTH OF 
;LENGTH OF 


Ss 
SLENGTH OF 


MESSAGE 
MESSAGE 
MESSAGE 
MESSAGE 
MESSAGE 


MESSAGE 
7 


MESSAGE 
MESSAGE 
SSAGE 


toes 


MESSAGE 
MESSAGE 
MESSAGE 
MESSAGE 
MESSAGE 
MESSAGE 
MESSAGE 
MESSAGE 
MESSAGE 
MESSAGE 
MESSAGE 


so on oe uw fF WwW = 


21 


LENGTH OF MESSAGE 22 








SEQ 175 


X04.01 23-AUG-82 13:14 


UDAF52 = UDA=52 FORMATTER DMACR 
SYMBOL TABLE 


S°23sss 
WU 
So—OWEUTUW 
~_— 

NO 


WENO 


RR 


SN= 
t=t-t-t-t-t-t-t-t-t— 
ze : 


Seeecerrer 
e 


SMMUMWUINES UWS 


R 


oo 

—_ 
Sa 

~ 
On 


Sossccnsss 


ooo 
MENOWEPoT 


JSRRESAGEOT 


333s 
sb: 
S25 


SSo38 
SANUS 
BSV= 
SOOnNoS 
MAR 
wn 
ouw 
MBwwnr 


S 
SSNS 


esses 
~~ 
Senses 
SeEsurs= 
WAAAY 
VSSEIASAS 


Sesosooseosesooes 


SoRsuSeSSSSEeee 
RSIS 


nnnnnnnnnan 
Sooooooeocecoo 
meet at et td td 

mN 

Ne 

i=) 
SSSeee 
MUI DN me a ed ed td ed od od 
rl lat tl or or or ar oF ot ot at ot at 
FRUSSELE 
WSokes& 


~WRWM 


DLERR 94g 74 
DLERT 004476 


1 
3 


S 
So 











0000 
hy = 000010 


S 
iN 
WwW 
™ 


m 
=] 
o 
™“ 
a 
So 
o 
* 


sss 


ou 


4 8 
ssssssssssss 
Sestassvesass> 


= 
NM 


RAS 


NRW 


ER 
EXTFCT 
EXTRET 


2 
Sossse 





004 
004 
004 
004 
001 
001 
0000 


3 
2 
5 
3 
1 
2 
5 
5 
31 
5 


S 


= NNO = 


SSssessssss 
x4 ee 


3 38 
= Poth) 
NNIWENINSUOWS 


33 
Rye 


tid 

”“~azm 

AKXKaA-z 
hiterertyt ta: 

MWNUWe SN 


ssss 
RONNORAR 


nm 
o 
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UDAFS2 = UDA=S2 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 97-2 
SYMBOL TABLE 


FLAG 00170 G4 = 0000 LBNH76= 
FLAG? 00170 G5 = 000044 LBNLBN 001616 
FLIP 004114 6 = LONPCY 0016 
F = 0004 6? = LONTI2= 000011 
FLKIP1 005635 68 «= LBNT76= 000015 
FLKIP2 005621 HASH 004016 LBUFE = 004311 
1 005655 =11 LCHEC 004461 
FMSTL = 000010 HD.CLR= 170000 LDONE 005560 
FMTSTA 004236 D.CUR 002145 LEN =0 
27 DBN= 14 LERR 004610 
FOLOOP 004025 BN= LER1 005007 
FORERR 004446 HD.PRV= 050000 LER2 005020 
FORMAT= 1 BN= 0600 
FPRIM = 040000 HD.REV= 030000 LFCTNT= 000012 
FRCPY = 000001 “XBN= 12 LFCTUS= 000014 
F AD = 5 LFERR 57 
FRSKP 005023 HERE 004667 LFINMS= 000012 
= HGHPBN 001637 LFIXIT 
FT.BUF= HIBYTE= 177400 LFORM 004014 
FT.FLA= 000003 HIIBYT= 177600 LHERE 00465 
FT.HI = 000002 HI2BYT= 177700 LKIP1O 004631 
FT.LOW= 000001 IP 004025 LKIP12 004407 
166 HKIP1 004053 004064 
FWRD 002126 001712 LKIP20 004156 
FWTDON 004232 001576 LKIP21 004177 
F1 = 000000 HOLDPN 001602 LKIPZe 004535 
F = $00008 HPREAY 902005 tKIPS OocaoS 
FZ = = 000011 HSLIM 001401 LKIP25 004424 
FS —- = 000014 HSTHI = 000002 LKIP27 004345 
F6 = = 000017 HSTLO = 000001 LKIP28 004635 
F? —- = 000022 H1 = 000055 1P29 004615 
F8 = 000025 He. = 200066 IP30 004674 
F9 —s- = 000030 IMAGE = 01576 LKIP31 004677 
GCR 001471 EN = LKIP33 004655 
GDBLK = 011132 IMSTAR 002004 LKIP4 004605 
GDECC 004012 INDSEC= 000013 LKIPS 004547 
NI 3 LKIP? 004654 
NCON 005144 INIRCT= 020000 LkIPB 004150 
GETUNT 005260 INITDD 003255 LKIP9 00413 
20 NITIT 003176 LLEN = 000015 
GOVER 005275 NITL 003322 LMORE 005576 
GOVER1 005267 INITPT 0032 LNOERR 004631 
= 000010 INITP1 003240 LO = 007777 
GRPCNT 002147 INITS 0032 LOAD. 002736 
YL= INPEL = LOADER 00303 
SKIP 005414 INPERR 004246 Loe 003006 
GSKIP1 005320 INST = LOADS 00301 
GSKIP2 005341 IRECAL 001554 LOADS 003031 
GSKIP3 005363 ISEEK 001550 LOADS 002763 
GS 001472 1SKI 7 LOBL = 000040 
GST 001470 LAGAIN 004532 LOBYTE= 000377 
GSTATS 002377 LAST = LOK 005351 
GTFLAG= 002000 LBNBAD 001 LONGTO= 000001 
Gl = LBNCYL 00162 LOOP, 004115 
= 000085 LONFND 00424 LOOPP. 004204 
GS = 000036 LBNH12= 00001 LOOPP2 004154 
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UDAFS2 = 1 i FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 97-3 


SYMBOL TABL 
OFFSET 001410 OVL...= 025760 RBNTRK= RDONE1 004257 RW.BUF= 00000. 
OFFS12= 000011 OVRLAY 003411 RBNWRT 005307 RDONE2 504805 RwW.CMD= 00000 
OFFS76= 000015 OVS.F1= 015156 RB. CMD= 2 = § RW.DAT= 000000 
OK 005041 OVS.F2= 020714 B.HI = 000001 READX 00471 RW.DUM= 000006 
OLDONE 004364 OVS.F3= 027330 -IM = 3 READ1 004600 RW.EDC= 0004 
ONE 002751 OVS.F4= 03050 READ10 004 $6 RW.ER1= 00000 
ONLIN 0031 OVS.F5= 03351 RCBUFE= 004403 READ11 Boe le RW.ER2 
ONLINE 001557 OVS.F6= 040056 6010 READ 751 RW.E76= 000440 
OQUIT 004415 OVS.F7= RCF IX 045 READ ks 74 RW.HI = 000004 
ORF TAL 41 OVS.F8= 024454 RCFXLP 00537 READS RW.LOW= 3 
OVCNT = 000023 OVS.F9= 051676 RCINDN= 000100 READ? 0 RW.STA= 000000 
OVER $.G1= 011674 RCINER 004530 READS 005654 E = 004353 
OVERT 005124 ° ¢: 0410 RCINIT= 000040 READ9 004175 
OVER2 OVS.G3= 04122 RCINLP 004165 REBUFE= 004535 SECCN 5016 
OVE .F1= 004014 . 2040 RCL 005620 RECAL 002751 SECCNT 002137 
OVE.F2= 004014 OVS.G5= 052366 RCLEN = 000034 RECIR = 0400 SECNDY 00426 
-F3= 004014 $.G6= 053526 CLP 004024 RECOV 0021 SEC 03 
-F4= 004014 OVS.G7= 017640 RCLP2 004170 RECTMP 002170 SECSIZ 002171 
OVE .FS= 004014 OVS.G8= 026326 RCLPS 004516 REDO 005224 SECSI6= 
-F6= 004014 OVS.H1= 032476 RCLP4 004444 RELEN = 000025 SECSI8= 000440 
-F7= 004014 eH2= 046344 CLP6 4452 REPEAT= 001006 SECTCY 001614 
OVE .F8= 004014 -MN= 00104 RCTBAD 002000 RESTAB 004303 SECTRK 001606 
-F9= 004014 OV... = 0264 RCTBUF= 013477 RETAD 004412 SECT12 001612 
OVE .G1= 004014 PAERR 003400 CTCK 371 RETRY 002165 SECT76 001610 
OVE .G2= 014 AGAIN 004072 RCTCKD 004700 REVBUF= 012264 SEEK tees 
OVE .G3= 004014 PAGE 00332 RCTCKE 004726 REVCNT 001741 SEEKER 00445 
OVE .G4= 004014 PAGER 003355 RCTCLP pons REVECT= 000100 SEEKO 903064 
-GS= 004014 PALP1 003332 RCTCL1 0044 REVLEN= 000004 SEEK1 003074 
OVE .G6= 004014 LP2 3343 RCTCNT 002162 REVRBN 16 SEEK2 003133 
OVE .G7= 004014 PALPS 003376 RCTERR 004665 REVSEC= 000007 SEEKS 003150 
OVE .G8= 004014 PALP4 3365 RCTFMT 001727 RFT SEEK4 003123 
OVE .H1= 004014 PARITY= 000200 RCTINI 01 RLD 006140 SEEKS 003131 
OVE .H2= 014 PARIT1= 00 RCTLBN 001746 RLDONE SEEK6 003122 
OVE . IN 1364 PARMTB 004174 RCTNGD 004643 RLOOP SEEK? 003115 
OVLBLK 002104 = 010455 RCTRLP 005165 RLOOP1 004217 SEND = 000004 
3 PBUFE = 004330 RCTS12= 000014 RNWHER 005372 SERBD 005055 
OVLTBL 002013 PCNT 002163 CTS76= 000020 ROVER 004047 SERCON 005034 
OVL.F1= 001231 Cc 004014 RCTTOT 001720 ROVER1 004065 RNUM 001772 
-F2= 660 PDONE 004312 CTUPD 004014 RPRIM = 000004 SEROK 005065 
L.F3= 65 PERR 004174 RCTWLP 004434 00451 SERRT 005101 
OVL.F4= 000776 PHYSA = 001000 RCTWRT 005160 005103 SETOVL 004465 
OVL.FS5= 001411 PLEN = 21 RCTWE 004427 RQUIT 004315 SETRET 004412 
° 07 PNGBLK 004067 RCV =0 005543 SETSIZ 004301 
-F7= 551 PNGPG 2 RCVMNT 003437 eoeege SETS12 004407 
OVL.F8= 000725 ] RCVRDY= 000001 RRPL 004631 SFTRPT 005434 
OVL.F9= 0002 ProRD 004131 RCWERR 005417 RS = 000000 SHORTO= 000000 
OVL.G1= 001531 PRET 004172 RCXLP 004 RTD 004662 IP = 000012 
-G2= 000053 PRIM = 001000 RC.FRE= RTRY = 000001 SKERR 004370 
OVL.G3= 000307 PRIMRB 003677 RC.NUL= 100000 RTY = 100000 SKIP1 004164 
OVL.G4= 002142 PRMBUF= 011607 RC.PRV= 020000 RTYCNT 002156 SKIP19 ee 
OVL.G5= 000460 PRMY = 100000 RC.SND= 030000 RTYDN = 000002 SKIPS 00424 
OVL.G6= 000525 PROD = 000000 RC ..UNU= 830000 RUN 001476 SKIP4 004145 
OVL.G7= 000426 QUESDN= 000200 RDBLK 0137 RWCMD = 013400 SKIPS 064070 
OVL.G8= 000401 RBNBUF= 014154 RDBUF = 010000 RWGD 004616 SKIPS 004310 
OVL.H1= 000406 RBNLBN Bot Gee RDCMD = 100000 RWGOOD 005351 SKIP7 pee ED: 
OVL.H2= 001555 RBNPCY 001652 RDLEN = 000004 RWRDY = 1000 SKPCNT 001 1g 
OVL.MN= 004316 RBNRPT= 000200 RDONE 004253 RWTDON 00541 SLAS = 00005 
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SEQ 178! 


BR art iad EE ALE Ra EO 


000 
STFORM 002502 
STLBN = 000002 


i=) S 
esses 


STO 001736 
STPNIC 002557 
STRBN = 000003 


000000 
ERRORS DETECTED: 


VIRTUAL MEMORY USED: 
DYNAMIC MEMORY 
oB:UDAF52.LST/C 


AILABLE FOR 71 PAGES 
30, 30JDMAC52/M,B:UDAF 52 








— FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 97-4 


THREB = 000011 
TILOP 


005150 
00515 


UHKIP 004367 
UHKIP1 004415 


UID. = 870008 
UNIT 0141 
ae 005006 


v1 00006 
v2 000002 
v3 = 000004 
V4 = 000005 


04250 
WRITES 004113 
WRITES 004304 
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UDAFS2 = UDA-52 FORMATTER 
CROSS REFERENCE TABLE (CRE 








CROSS REFERENCE TABLE (CREF V04.00 ) 


C512 4 od 49-43 49=-44 74-29 80-34 
~289# 74-27 80-32 


CDONE 5 50-179 50-1984 
CEOC 18-74 50-158 56-156 58-170 65-72 


CHRDNE  3-259# 12-61 12-67 


10 
CLEAR 12-22 13-1278 49-93 50-193 55-63 


CMDBUF 3-3604 50-70 50-112 51-7 56-22 
— 3-574 50-93 56-45 56-111 


T 
CNTCYL 6-32 49-36% 49-54% 49-109% 49-114% 


ONBAD 
CONBLK 6-64 19-5 19-27 65-13 68-14 
87-10 89-25 90-24 92-5 92-28 


CONDO1 31-484 31-53 

CONDON 31-14 31-32 31-464 
CONER1 31-18 31-20 31-514 
CONERR 31-30 31-494 

CONEXT 37-9 37-124 


CONGRP 94-18 94-30 94-44 95-44 


COUNT 6-504  46-7* 46-29%  46-30* 46-33% 
65-141* 76-43% 76-128% 76-141% 76-142* 
90-14% 90-104" 90-108* 90-112 
21-6 4 42-4 
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68-24 70-59 75-25 


56-290 


56-64 57-7 


55-15* 55-17 55-18* 


70-13 75-9 76-45 
93-15 


46-83*  50-7+ 52-72* 
76-145* 81-16%  81-38* 


43-27 43-46 43-70 















76-64 


55-116 


78-13 


52-81% 
81-41 


45-4 


78-54 


55-123 


85-23 


54-7 
81-52* 


47-6 


85-33 


55-125 


85-81 


65-8* 
81-55* 


65-144 


| 


SEQ 181 


87-60 89-72 90-67 


91-106* 91-107* 91-159* 


85-104 86-12 86-76 


65-57*  65-134* 65-138 
85-6 85-71% 85-72 


' 


| 
| 
| 
| 
| 
| 





UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE S-3 
CROSS REFERENCE TABLE (CREF V04.00 ) 


CR.RCL 
CR.RUN 


2 
25-94 


13-80 
1 


55-109* 
19=12* 


87-26 
92-54 


50-1754 


87-96 


90-97 


25-26 


26-18 


49-103* 


89-106* 
49=106* 
91- 


91-6* 





94-15 


26-21 


91-35 


26-34 


N 14 


90-12 


55-29% 
91-103* 
90-11% 
60-9* 


74-227 
40-246 


73-36 
94-25 


26-404 


53-41% 
94-32 


60-18* 
55-47% 


90-105* 
66-11% 


58-111* 
94-40* 


81-17% 


91-84* 


53-12 
74=132 
94-76 


53-36 
65-10* 


74-84 
76-140* 
90-42 
55-113* 


90-105* 
70-7 


58-112* 
94-61 
81-18* 
55-87* 
76-73 
91-78 


74-101 
91-85* 


94-97 


58-119* 
94-74 
81-34 
56-91 
76-154* 
91-95* 


89-20* 
91-1148 


89-28 
55-32 
76-151* 
53-16 
76-33 


55-101* 
65-43 
74-123 
89-23 
90-106* 
58-90* 


90-107 
76-6* 


58-123* 
94-81% 


91-104* 


89-22* 
91-115* 


53-35 
76-112 


aime, 
i 


SEO 182 


| 
78-7 | 
58-198* 
94-85 


81-43« 
57-27 
78-90 
91-133 


89-105* 
91-126 
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UDAF52 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE S=4 
ABLE (CREF 


CROSS REFERENCE TABLE v04.00 ) 
DATLP1 25-294 5-31 

DATLP2 aot ad 5-47 

DATRET =4 5-534 

DATRT1 25-54# 5-60 

DATVER 25- 6-124 

DATVL1 26-31 26-3 

DATVL2 26- <7" 26-41 

DAYS e- 


22-864 -6 
as. 49-17% 82-127 


N 49-12 13-38 
DBNCYL -93# 40-158 
DCLR 5-55 5-724 12-218 
OCMP 11-148 74-58 76-1246 
DCMP1 11-19 11-294 
DCMP2 11-20 11-254 11-36 
DCMPS 11-30 11-354 
DCMPG 11-218 11-37 
DDIV 10-14 0-22 40-187 
DDUMMY 5-324 0-19 20-20% 
38-80* -83 40-24% 
40-155* 40-156 40-161 
40-200* 40-201* 40-203 
43-19 43-58 3-59« 


DINIT “60% 13-61 13-191 
DIS -5 5-674 

DISCON 13-1708 17-16 81-62 

DLERR 79-20 79-284 

DLERT 65-1614 

DLL 53-2344 30-9 50-56 

DLLON 30-10 30-124 

DLLDN1 30-134 30-2 

DLLFLE 22-37 30-44 

DLLNO 30-7 30-184 


13-210 


52-14 


17-11 


38-85 
52-48 


52-16 


80-79 


40-208 


87-21% 


74-89 


46-6 


40-32 
52-56 


94-9 


43-62 


87-22+ 


74-166 


65-40 


40-48 
58-98 


94-13 


63-20 


7 
87-23 


74-192 


79-12 


40-60 
58-106 


24-68 


94-22 


74-204 


81-10 


40-75 
61-10 





72-14 84-14 95-8 95-23 95-32 95-58 
ow 24-8 38-12* 38-13* 7e-1f 38-76 


94-34 94-52 94-63 94-75 94-96 95-4* 


74-213 


82-121 82-123 6-7 


40-100 40-132 40-141 40-214 40-242 41-14 
62-10 63-26 64-18 94-21 94-33 94-62 
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UDAF52 = UDA=52 FORMATTER DMACR ae 01 23-AUG-82 13:14:22 PAGE S-5 
CROSS REFE ENCE 


DONF CT 
DONONE 
DPBN 
DPREA 
DSUB 


TABLE (CREF V 


gen137" 


ret 


50-154 


50-44 
49-304 


-00 ) 


25-184 
49-80 


50-1624 


50-178* 


56-183 
50-110* 


13-115 
69-54 


45-7 


78-137 
65-149 


66-11 


50-180 
ety 
93-78 


56-238 


78-49 
50-150 
90-61 


52-58 


56-7* 


56-212 
50-173* 


49-26% 
70-128 


13-221 
70-140 


80-96 


55-50 


94-11 
64-28 


87-55 
56-42 


52-86 


56-211* 


56-222 
50-176* 


50-168+ 
75-63 


14-30 
73-52 


89-67 
56-49 


52-94 


56-235* 


56-6 


55-133 
76-101 


17-84 
75-89 


65-96 68-45 70-111 75-46 
49-101 49-113 50-29 50-46 
70-94 74-17 74-35 74-2645 
94-73 

90-62 

56-101 56-103 70-51 70-53 
57-31 57-34 58-108 58-195 
56-56%  56-62*  56-229% 56-233 
56-164* 56-224% 91-4* 91-76+ 
78-65 78-121 86-64 87-76 
19=29 31-50 32-15 33-32 
rei 7% 78-142 79-30 80-104 


76-85 


55-21 
75-83 


78-46 


58-215 


91-98+ 
87-129 


46-88 
85-106 


atts as 


SEQ 184 
78-104 85-54 | °. 
55-99 55-108 
76-38 76-123 
78-48 87-52 
64-23 
91-163 
89-83 90-83 
47-12 (49-122 
87-141 89-113 





UDAFS2 = 
CROSS REFERENCE 
re 2054 
ies i 
FB 2084 
Fg -2094 
FBDHD -1594 
FBEG2 74-484 
FBEGIN 74-41 
FCFXLP 93-744 
FCLR abt 4 
FCMSG 1934 
FCNT 55-1644 
CPG 58-201 
FCTAVL 35-2254 
CT 35-2324 
FCTCK 88-12 
FCTCKD 89-92 
FCTCKE 89-100 
FCTCL1 89-344 
FCTCLP 89-324 
FCTCNT 5-1784 
79-15 
93-81% 
FCTCPY 5-1684 
87-82 
FCTEMT -2294 
FCTFLG -2914 
FCTFMT -1 
FCTNOT 82-224 
TNPD -1 
FCTPTR 5-1778 
FCTRCT -84 
FCTREV 5-188% 


76-127 


TABLE (CREF V04.00 ) 
Pitt 
33-82 1-8 
5-4 36-8 
74-207 39 74=216 
58-179 

74-212 

74-434 74-205 
93-80 

42-7 43-48 
65-41 79-13 
49-15 49-19 
59-48 

36-10 40-7 
78-135 80-94 
89-44 

89-1014 
89-1114 

89-99 

89-109 

49-40% 49-46% 
79-2 80-12+ 
42-8* 65-125 
89-98 90-1 
ro. ie 
42-10* to-tie 
2-24 82-150 
40-215* 40-216* 
74-46% ~47 
49-14 49-19% 


49-1174 
30-5 


35-208 
74-1854 


74-1074 


74-2184 
40-210* 


82-154 


50-191 
35-124 
35-22 


34-214 
66-119 


82-114 


76-6 
74-44 
74-255 


74-209 
43-72 
49-23 


55-9 
80-99 


52-83* 
80-56% 


65-127 
0 


65-138 
74-91 


49~22 


74-221 


80-52 


65-147 
49-43% 
58-113 


74-15 
80-59« 


65-140« 
93-72 
58-115 
65-141 


89-5* 
74-168 


49-44% 


74-247 


89-17 


52-73* 
65-143 


74-20% 
89-4" 


65-148 
58-128 
78-74 


89-108 
74-194 


80-90* 


dD 15 


UDA=52 FORMATTER DMACR a 01 23-AUG-82 13:14:22 PAGE S-6 


78-7 


93-7 


58-39 
78-136 


74-42% 
89-19% 


68-73 
59-5 
78-85 


74-199% 


80-14 80-61 
58-126* 80-35 
80-16 80-63 
74-219% 74-243 
89-104* 89-108 
68-75 70-81 
80-37 

89-94 93-68 
74-210 


89-7 

80-54%  §80-70* 
80-95 80-100 
74-257% 74-257% 
89-112 93-10 
75-75 75-77 
93-77 


80-83* 


78-8 
93-67 


76-113 


80-85* 


78-12S* 
93-76 


76-115 


SEQ 185 


80-90 


78-131 
93-81« 


78-71 











UDAFS2_ = UDA=52 eee ttn 


CROSS REFERENCE 


FIXFCT 74-99 
FIXIT 3 5 
FIXLP -154 
FKIP1 51-21 
FKIP10 51-39 
FKIP2 51-15 
FKIP9 57-39 
FKP1 51-33 
FLAG 5-1448 
9-20* 
55-129* 
58-134% 
74-213 
148" 
FLAG1 5-1454 
5-9 
31-42* 
56-196* 
58-171 
75-108 
85-17% 
91-146* 
FLIP 73-10 
FLI 35-2544 
FLKIP1 57-21 
FLKIP2 57-15 
FLKP1 57-33 
FMSTL 22-614 
FMTSTA 22-594 
78-804 
78-114 
FORERR 55-61 
T 3-524 
FPRIM 3-2604 
FRCPY 3-744 
RDONE 74-201 
FRSKP 74-203 
SER ~2864 
FT .BUF -154 
FYT.FLA -184# 
HI 3-174 
56-199 
FT.LOW 3-164 
FWGOOD 93-49 
FWRD g-134 
FWTDON -75 
G1 35-2174 
Ge -2104 
G 35-2118 
G4 -2124 
G5 -2134 
G6 -2184 
G7 2144 
G8 -2154 
GCR 5-50 
GDBLK 3-3574 


TABL 


E ¢ 


EF v04.00 


91-155* 
31-34 


65-145 


80-44 
56-153* 
50-132 
56-209* 
56-133 
56-245 
54-5 
80-11 
81-9 
52-11 
60-9 


52-21 


j 


13-25 
49-498 
56-126* 
59-5* 
78-133* 


91-162* 
31-42 


55-56 


56-179 
50-163 
56-215 
56-213 


64-31 


79-11 


56-178 


13=42* 


ww 
? 
a 


56-283 


56-182* 
50-166* 
5 7 


56-266 


13-50* 
52-14% 
56-165* 
65-129 


78-136 


17-10* 


94-46% 
82-138 


56-273 
52-76 


58-31* 
58-67« 


58-16 


E 15 


01 23-AUG-82 13:14:22 PAGE S-7 


13-52 
52-16% 


94-64% 
84-17 


56-276* 


52-79* 
58-71 


§8-24 


13-74% 


94-86% 
84-20 


58-25* 


56-70 . 
58-130 


58-52 


90-18: 
95-36* 


84-25 


58-65* 


56-120 
58-146 


58-209 


30-18 
5 


58-166 


56-124 
58-149 


64-27 


36-10* 37-10 
55-76% 55-78 
58-38*  58-113* 
74-89% 74-166* 
80-94%  80-95« 
53-25%  23-27+ 
9-242 30-11 
6-130* 56-157* 
58-58*  58-81* 
70-60* 74-25* 
84-17% 84-20* 
91-53* 91-60 
58=210* 
56-132* 56-168 
58-181 58-184+ 
86-2 86-36 


56-174 
58-188 


SEQ 186 





49-120 
55-80* 


56-177 


58-191* 


F 15 





UDAFS2 = UDA=52 ree ttn DMACR X04.01 23-AUG-82 13:14:22 PAGE S-8 
CROSS REFERENCE TABLE (CREF V04.00 ) 


GDECC 21-18 21-208 
GDONE 41 


46-714 
GENCON 25-20 27-5 9 29-5 31-58 - 
GETUNT 48-7 


-230# 37-10 78-133 80-92 


VER 46-128 46-22 46-32 
GOVER1 49-38 46-85 

P ~¢70e 19-15 85-9 92-1 \ 
GRPCNT g- 49-61% 49-622 49-6 49-1078 55-28% 55-114% 91-11% 91-12" 91-96« 
GRPCYL 40-26 49-61 55-26 39:91 95-29 


-968 
GSKIP 46-51 46-54 9 46-57 46-594 t 


GSKIP2 46-28 46-3 \ 
GSKIPS 46-39 46-424 € 
GSR 5-51  5=65# 912-36 46-768 

GST -49 


72-4 74-61 
HD.BAD 3-153# 50-165 52-78 56-201 58-190 66-48 91-58 91-151 


HD.CLR 3-155# 40-71 40-96 46-36 46-64 50-164 52-26 52-69 52-77 55-18 56-125 > ah . 


56-218 58-29 58-69 58-122 58-147 58-182 58-189 61-7 62-7 66-30 66-52 


66-104 74-86 74-115 974-122 = 74-143 74-149) 74-163 74-181 74-189 | 80-76 81-31 85-85 


92-9 94-2 94-38 94-79 94-101 
HD.CUR $368 49-50" 49-53* 50-120 52-27 ag: 
HD .DBN -156# 49-50 5-16 94- ; 
HD.LBN 3-150# 26-76 57-14 58-30 68-40 74-54 75-41 76-80 90-44 94-102 “hy 
HD.PRV 3-154# 56-131 56-170 56-189 58-148 66-72 


53-1514 56-74 56-122 56-141 56-269 57-16 g8-79 58-132 58-158 74-119 85-9 86-42 
oe 53-1574 49-53 51-14 65-91 78-27 78-99 89-49 91-37 91-130 93-36 94-39 
50- 
HGHPBN 95-1284 42-33* 42-34% 30-67 80-78 94-7 
HIIBYT  3-133# 20-24 40-55 40-107 40-119 55-104 58-49 62-15 63-22 86-11 94-57 
HIBYTE ot 12-18 20-18 25-9 31-16 34-13 35-14 40-23 40-27 40-43 40-109 40-121 


43-29 43-92 43-95 45-6 49-35 49-62 49-74 50-19 52-36 55-27 55-44 55-95 
o-3 6-16 68-13 70-22 75-15 76-51 85-22 86-19 87-19 90-23 91-12 91-16 


2 
HOLD 5-153# 66-18* 66-19% 66-21 66-37 69-37 73-35 74-31% at 74-34 74-66 74-131 
6-40 90-6* 90-11 90-12 
g-inee 49-56% 49-58% 49-99 49-102 49-103 55-88 55-100 38 f01 60-135" 60-15" 74-57 


HOLRBN 
HPREA 5-195# 43-96% 49-81 50-181 55-51 6-278 65-95 68-44 70-110 75-45 76-84 78-103 


HSLIM 5-304 50-81 50-128 56-33 56-82 65-93 go~46 A ak 14 70-108 75-43 76-82 78-21 
“44 87-28 87-109 89-51 90-46 91-42 91-155 


HSTHI -200# 16-8 
HSTLO at 44 16-7 $37! 
IMAGE 3654 33-12 3-15 33-14% 33-15" 33-18 33-21 33-24 33-27 40-243 43-10 49-85 





oll 


SEQ 187 


56-192 st-s00 
66°82 66-9, 
91-57 ba hs 
~s art ' 
94 80! - « 
40-160 41-9 
58-13 58-87 
91-93 94-51 
76-34* 76-35" 
13 
85-53 86-46 
78-101 85-50 
50-185 51-8 





















CROSS REFERENCE TABLE (CREF V 
51-35 51-37 52-13 


g metts 64-19 74-246 
IMLEN oa ih 40-239 43-4 
IMSTAR 1948 49-82 50-182 
INDSEC 32734 

INI -170# 18-8 

INIRCT “2374 55-76 55-79 
INITS 13-190# 13-201 

INITOD 13-215 13-215 13-2194 
INITIT 13-1864 48-6 

INITL 4 48-S# 


INITPT 13-358  13-209# 49-92 
INPE 


INPERR 22-654 22-67 23-29 
INST z-¢978 65-36* 80-40 


ISEEK 5-56 5-77# 19-13% 
55-38* 56-291* 66-113* 
85-90" 85-91%  85-92s 


LAST 3-319% 52-104 58-225 
LBNBAD 9 5-189# 55-132 55-135* 
LBNCYL 3°! 2H 40-148 40-151* 


LBNTI2 3-894 20-17 40-40 
87-16 90- 94-48 

LBNT76 §=—3-90# 20-15 40-42 
87-18 90-22 94-50 

LBUFE 82-38 82-414 

LCHEC 55-75 6-64 56-295 

L 56-63 56-236 6-2964 

LEN 3-198# 16-9 


LER1 56-106 56-109 56-114 


56-484 


52-60* 


58-38 


56-1164 


2-8 
79% 


55-62 


19-15* 
66-121* 
91-24% 


55-55 
52-85 
52-102* 


56-289 


19-21% 
66-124 
91-25 


55-16 


53-11 


58-10 
58-12 


6 15 


UDAFS2 = UDA=52 FORMATTER mre + de 23-AUG-82 13:14:22 PAGE S-9 


56-167 
52-95 
55-52 


49-65* 
74=225* 
91-26* 


55-17 


53-31 


61-16 
61-18 


56-265 
56-172 
56-279 


49-66% 


74-228 
91-117« 


61-5 


53-32 


63-13 
63-15 


56-282 
56-271 
58-110 


49-67% 
74-2318 
91-116* 


61-6 


66-18 


68-10 
68-12 


57-8 
57-40 
58-214 


49-68% 
74-2348 
91-1198 


62-5 


66-19 


79-19 
70-21 


57-35 
58-32 


58-223 


55-31% 
76-1498 
92-14% 


62-6 


74-31 


75-12 
75-14 


57-37 
58-72 


55-32* 
76-152* 
92-15 


78-12 


74-32 


76-48 
76-50 





58-15 
58-103 


55-33* 
76-155* 
92-16% 


78-15 


76-34 


85-19 
85-21 


SEQ 188 


58-79 
58-194 


55-36* 
76-158* 
92-22 


93-14 


76-35 


86-16 
86-18 





UDAFS2 = UDA=52 FORMATT 
CROSS REFERENCE 


TABLE ( 


ER 
CRE 


H 15 
DMACR a hd 23-AUG=82 13:14:22 PAGE S-10 


58-2054 


58-186 58-1934 


56-71 
74-53 


56-121 
74-75 


56-169 
74-140 


56-2284 


56-2314 


56-784 56-227 





56-188 
74-151 


56-268 
75-18 


57-13 
76-54 


58-131 
81-25 


66-47 
85-26 


SEQ 189 


66-54 
86-22 








UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE S-11 
CROSS REFERENCE TABLE (CREF V04.00 ) 


56-217 


22-774 





J 15 


IDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE S$-12 
CROSS REFERENCE TABLE (CREF V04.00 ) 


MSGTBL -128 “9 
MULON “11 Sets 
ry i 314 


MULER - 32-14 
MULPC 37% 9-18* 9-19* 9-20 
MULTIO 31-33 33-11 
T -6# 33-11 33-1 33-17 
N o-one 50-58* 50-62*  50-108* 56-10* 56-14% 56-60% 
NI - 50-59* 50-60 50-63* 50-64 50-170* 50-172" 56-11% 56-12 56-15* 56-16 


NEXT 14-84 23-52 40-12 49-28 55-137 65-150 78-138 80-97 
NEXT1 5-169% 65-56* 65-119 at 8-5* 68-67* 68-73* 68-77 68-82* 756% 75-69* 
76-59* 6-107" 76-113* 89-90" 89-98% 90-16% 90-90" 90-100" 93-9 93-64* 


oa 


80-17 80-25 80-64 80-92" 
0-998 


NGD1 80-28 8 
NN1 6-314 * 50-64* 50-172 56-12* 56-16% 56-228 
65-104 65-1194 
6 47-5 47-104 
NOCERR 31-23 31-25 31-27 31-29 31-314 
CRY 18-13 18-154 
NODLL 65-22 65-244 


NOERR 50-73 50-95 50-100 50-1054 
NOF CT 53-2924 65-37 80-27 
NOGOOD 


6a 
NOTHER 46-11 46-21 46-31 46-38 46-61 46-798 
NOT 66-4 66 


NUM 6-114 50-92 56-44 56-110 64-10* 


OFFS12 3-814 52-34 58-85 95-40 
orrees 5-374 66-43 69-7 69-36* 73-6 73-34% 74-72 74-137 


~38# a lg 42-29 49-112 55-20 55-117 55-121 974-16 93-11 





——------- —- — --— 


SEQ 191 


56-226* 56-228 


75-75* 75-79 75-84* 
93-70" 93-74 93-79% 


65-5 
71-7 71-7 
79-78 80-7 
93-2 93-2 








iaiuibatutaata 


AAAAAAAAA 


mm 
~ ZRSBVEGRERI SarteAran— 


OVER2 


22222 


94-2 


94-2 


40-5 
65-50* 


15-1 
15-3 





94-2 


40-54 


49-8 


15-30 
16-74 


94-24 


kK 15 


UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE S-13 
CROSS REFERENCE TABLE (CREF V04.00 ) 


96-5 96-5 
52-10 52-104 
71-7 71-74 
93-2 93-24 
79-22% 79-23% 


96-54 


te 
ie 


79=24 


97-48 


55- 
76- 
94- 


54 


3m 


97-484 


58- 
78- 
96- 


2 


5 


58-24 
78-28 
96-54 





79-7 
97-48 






OVS.FS 
OVS.F 


5-119# 


56-142 
58-141 


40-101* 


40-54 


82-133 
49-43 
80-73 
58-125 
94-82 
5-3 


69-44 
74-156 


56-129 
58-153 
56-149 
74-93 


29-24 
51-19* 


58- 
40-102* 


50-6 
74-37 
89-8 


49-44 


58-199* 
94-1044 
5-3 


74-174 
56-165 
67-7 

56-154 


74-105 


30-11 
56-24 


50-113 


58-64 
40-177 


54-6 
74~45 
89-18 


50-8 


59-10* 


5-34 


56-198 
72-7 

58-159 
74-171 


37-12 
57-19% 


50-117 


40-178 


55-12 
74-51 


54-8 


80-72* 


58-23 
58-165 
74-196 


56-50 


40-193 


L 15 


UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE S-14 
CROSS REFERENCE TABLE (CREF V04.00 ) 


55-24 
74-70 


59-7 


80-82* 


58-134 
58-168 
74-252 


56-54* 


40-194 


55-49 
74-135 


74-220 


58-143 
89-6 


56-65 


42-27 


55-72 
74-208 


79-25 


89-9 


56-69 


53-13 


55-83 
74-217 


80-13 


89-44 


53-34 


55-86 
74-222 


80-18 


89-70 


76-27 


55-131 
74-248 


80-29 


90-38 


76-28 


:- os 


SEQ 193 


59-9 
74-256 


80-43 


90-65 


66-41 
80-15 


80-51 


91-31 


' 


UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE S$-15 
CROSS REFERENCE TABLE (CREF V04.00 ) 


RBNPCY 5-124 40-61% o0n6e8 49-99 62-9 
“918 20-23 40-54 40-106 40-118 55-103 58-48 62-14 63-21 86-10 94-56 


RBNWRT 
RC.FRE at fr 66-76 69-1 73-15 74-76 74-141 
RC.NUL 77-9 


66-93 74-8 0 
RC.SND 3-165 66-69 66-105 74-116 74-164 74-182 81-26 
Fe | 3-166# 66-53 74-78 74-144 74-150 


% Wee hy heehee CM Re 
SEQ i 


RCINLP 76-584 76-146 
RC 87-268 “ 
RCLEN 82-67 82-734 


RCTBAD 9 5-190# 56-118* 58-138* 82-125 
6-98 68-22 69-12 70-34 70-57 70-101 = 73-11 74-71 74-109 = 74-136 = 74-157 
74-175 = 75-25 81-23 87-35 87-58 87-102 


z 
oO 
4 
e 
bes | 
t 
& 
— 
tm 
o 
oOo 
A 
mM 
oa 
ra 
a 
Nm 
Oo 


RCTCNT os" oe 69-30* 69-31 69-45% 73-29% 73-30 73-43% 74-65% 74-130* 81-19% 81-21 81-47* 81-48+ 
RCTFMT are $5.56. 42-16* 42-17% 68-71 68-80 70-83 70-93 75-73 75-82 76-111 76-145 81-48 87-84 


76-64 
RCTLBN 5-181# 40-188 40-189* 76-142 90-4» 90-108 
RCTNGD 90 


00# 
RCTTOT 5-161# 55-22*  58-36* 


RCTWLP = 68-74 

RCTWRT 74-107 74-155 74-198 75-5# 

RCTWT 66-93 66-107 68-44 

RCV 3-564 13-31 13-104 46-26 
16-284 65-46 79-1 

RCVRDY _3-173# 13-68 13-197 13-216 


68-83 
RDBLK 5-214 21-12 50-71 50-83 50-89 50-97* 
41 87-54" 89-39 89-53 89-66* 
91-137 91-14 


0-12 
fri33 58x48 
0-159 56-31 56-88 56-108" 65-24 65-35 65-53 65-60 


7 50-140 50-150* 56-23 56-35 56-41 56-49* 56-81 | 
87-27 87- 
90-33 48 91 | 
RDBUF 53-3554 6-12 50-79 50-134 50-154* 50-156 
| 








N 15 


UDAFS52 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE S-16 
TABLE (CREF V04.00 ) 


CROSS REFERENCE 


65-70 
76-162 
ROCMD 3-3128 
ROLEN 3-3074 
DONE 80-80 
RDONE1 80-55 
RDONE2 80-S8# 
READ 3-534 
READ1 50-834 
READIO 90-484 
READ11 70-404 
READ2 50-140# 
READS 56-354 
READS 56-934 
READ? 78-35# 
READS 87-414 
EAD9 89-534 
READX 50-121 
REBUFE 82-99 
RECAL 13-794 
RECIR 35-3204 
RECOV 6-524 
76-109 
89-97 
RECTMP 6-544 
70-130* 
78-127* 
90-79 
REDO 51-32 
RELEN 82-98 
REPEAT 3-255# 
RESTAB 82-334 
RETAD 23-21 
RETRY 6-514 
65-105 
EVBU 3-359# 
REVCNT 5-176# 
REVECT 3-227# 
REVLEN ~309# 
REVRBN _5~-125# 
72-20* 
REVSEC 3-804 
RFTL 87-83 
RLD 87-93 
RLDONE 70-92 
RLOOP 80-58 
RLOOP1 80-744 
RNWHER 86-26# 
ROVER 66-24# 
ROVER1 -28 
RPRIM 3-24 
RPT 58-1614 
RPT1 56-1444 
RQUIT 80-93 
RC 81-22 
RRERR 50-88 


87-54 
50-91 


65-152 


50-141 
50-175 
80-884 


50-144 


86-66* 


80-71 


56-196 


50-964 


74-21 


56-36 
51-20 


56-38 


58-220 


56-263 


74-24 


56-94 
56-57 


56-97 


58-144 


74-43 


70-41 
56-232 


70-47 


29-17 
14-17 
76-93 


66-109* 
58-136 


58-155 


58-205 


74-46 74-95 
78-36 87-42 
57-20 

78-42 87-48 
70-73* 70-86 
86-62* 86-70 
68-57 68-63* 
76-103* 76-109* 
87-87* 87-91% 
93-66* 

15-39 43-39% 
78-57 78-113 
58-156 67-10 
58-207 


74-206 
89-54 


89-60 


70-90 
87-74% 


68-69* 


78-61 
87-125 


46-20 
86-56 


67-11 


74-215 
90-49 


90-55 


70-126* 
87-87 


87-131* 


46-30 
87-68 


67-20% 


76-9 
91-45 


91-50 


70-134 
87-91 


70-77* 


78-77* 
87-135* 


49-90 
87-121 


67-21* 


76-14 
91-138 


91-143 


75-61% 
87-127+* 


70-86* 


50-190 
89-75 


67-22+ 


76-62 


75-71 
87-135 


70-90* 


78-117 
89-85* 


55-60 
90-75 


72-10 


SEQ 195, 


76-131 | 





RRPL 


SECCN 
SECCNT 


SECNDY 
SECNO 

SECSI6 
SECSI8 
SECSIZ 


74-16 


74-1478 
76-15 


56-558 


87-101* 


50-129 
87-110* 


50-106* 


-00 ) 


§3-151 


51-6% 
58-78 


50-157 
93-23 
49-84 
64-46% 
40-1148 
-7 


207638 
55-63 


49-94 


56-83* 
90-47% 
68-27% 
58-175* 


50-150* 
90-61% 


64-46 
93-46 


68-25 


50-194 


56-41 


55-39 


68-31¢ 
24-485" 
68-35* 
91-1348 


68- 
91-1278 


78-31 


B 16 


UDAFS2 = UDA=52 FORMATTER DMACR X0G.01 23-AUG-82 13:14:22 PAGE S-17 
CROSS REFERENCE TABLE (ERE VOe.00 39) oe? 22 PAGE $ 


70-35% 
03-278 
70-39% 
93-31% 


70-28% 


70-102* 
70-100* 


70-109 


85-36* 
75-30% 


56-103* 
70-107* 


91-1318 
70-104* 


89-40 


55-54 
70-116 


91-79 

49-100 
58-101 
66-125 


75-32¢ 
75-36% 


75-44% 


86-6* 
76-69 


70-50 
75-42% 


91-149 
75-38* 


90-34 


76-718 
7€ -75« 


76-83* 


87-63 
78-55 


70-53* 
76-81% 


91-1528 
76-77% 


91939 


56-58* 
91-64% 


78-43 


56-80 
75-51 
91-113 
50-45 
64-7 
76-159 


78-30« 
78-34% 


78-22 


90-70 
85-38 ~. 


78-45 


78-28 
93-37% 
78-24% 


91-132 


78-94% 
78-92¢ 
78-102 


/ 
86-8* 


78-48 


78-100* 


78-96% 


49-60 
65-14 
91-14 


57-42% 
91-113* 


78-109 
56-155 
76-63 
93-19 
51-6 


65-19 
91-27 


85-40" 
85-448 


85-51+, | 


87-51 


87-66 


— 


85-49" | 


85-46 


58-14% | 
91-157 





89-59 


| 
56-281 | 
76-89 | 
| 
| 


ROR) Ua os 2 





13-1654 


13-92 


29-20* 
29-12 


42-32 
76-79 


46-16 


29-21% 


29-14 


56-19 
89-58 


91-122 


51-9 


56-220* 


49-68 
5-54 
53-18 


44-10* 


85-48 


UDAFS2 = UDA=52 FORMATTER DMA eo aes 01 23-AUG-82 13:14: 22 PAGE S-18 
NCE TABLE (CREF V 


29-22* 
29-198 


56-79 
90-53 


57-9 


58-178* 


55-36 
5-55 
94-25 


61-1 
87-3 


sea 197' 
| 


70-115 75-50 76-88 78-40 78-108 85-58 


76-158 85-98 92-22 
5-59 5-748 12-16 12-23 46-34 


—— eee 


66-91 66-103 68-39 70-32 70-106 74-85 


Pa EQ 198 
UDAFS2 = UDA=52 FORMATTER DMACR ee 01 23-AUG-82 13:14:22 PAGE S-19 
CROSS REFERENCE TABLE (CREF V04.00 ) 


12-3 
ST.RBN “150 net 56-140 58-157 62-12 67-22 72-22 86-41 94-78 


174) 
° 
3 
3 = 
a 


wP 
ST.XBN -1994 $3-98° 50-43 53-39 665-9 65-10 65-78 78-26 78-98 89-20 89-21 89-37 =: 91-36 91-129 


STAC 

STARIT 5-156 51-11 51-38 51-41" 57-11% 57-38 57-418 

START 5-5 14-10 14-16 15-14 15-23 15-32 22-54 40-5 40-5 49-8 49-8 52-10 52-10 55-5 
55-5 58-2 58-2 60- 606 65-5 65-5 g6n¢ S6n¢ 70-2 70-2 71-7 71-7 76-2 


76-2 os 78-2 79- = 80-7 80-7 1-5 88-2 88-2 93-2 93-2 94-2 
START2 71-11 74-78 
STARTS 22- 23-34 


STASEC 5-100# 91-7* 91-8* 91-67 91-69 91-82 91-84 91-85 91-101* 91-102 91-111 91-114 91-115 
STATFR 18-45 18-47 18-534 


STATST 12-144 12-43 12-47 12-51 12-55 12-60 
13-62 1-6. 13-141 = 13+193 langle 18-41% 46-10 


arent 3-884 40-166 68-16 70-11 75-17 76-53 85-25 86-21 87-8 90-26 


T aoe? 4- 
STDIAG 12-49 12-524 
STFLAG 3-257# 25-7 25-16 25-16 25-16 25-25 
STFORM 12-45 12-484 
STLBN 844 4-8 
STO -173# 13-140 43-83 
STPNIC 12-27 12-30 12-33 12-40 = 12-714 


STSKP 12-62 12 
WLK "32 12-56# 
STXBN od 44-20 
SWAP 66-7 66-864 Ppt 
SWRD ated 40-226 56-246 ‘64-32 
TALIP1 13-54 13-564 . 


TALK 12-15 12-64 12-66 13-134 §=13-121 = 13-129 13-139) 13-172, 13-180 =: 117-27 


TALKIP 13-51 it a fy 

TALKP 13-43 13-458 

TALKRT 13-38 13-424 

TATIN] 13-69 13-734 

TBLK -5-158# 41-17 41-20" 51-30 57-30 

TBUEE 22-784 22-81 25-17 25-36 

TBUFFL 22-818 33-18 53-37 

me” Se, Me OE te ere ee 8 21% 31-22 31-36% 31-38 «= 31-408» 38-148 38-15 
= o - ® - ® = = . 7 - - oo ® =  - > & = * 
seis S801 38-22 ag eam a a tM ar} 3 SD 2 Og a 2 40-46 40-56" 40-578 
40-58 40-69" 40-72e 40-73 40-94" —40-97* 40-98 «40-138 40-139% 40-140 40-1498 40-182* 40-183 4001778 
40-178 40-181 40-193 40-194* 40-197 40-202 40-239" 40-240" 40-241 41-10" 41-11e 41-12") Gle1se 4da2K8 





E 16 


SEQ 199 
UDAFS2 = UDA-52 FORMATTER DMACR ™ 01 23-AUG~82 13:14:22 PAGE $-20 | 
CROSS REFERENCE TABLE (CREF 00 ) 


re $3-¢ 43-9 43-142 43-15* $37} $378! 43-56*  43-57* 43-60 50-20* 
5 38 a 9 S2-42e 52-43* a i 52-53* S2-54* S2-5 53-8* 53-9 53-10 
58-92* — 58-96 58-103" 5 i 5 405 61-5* 


Gin¢s 61-7* 61-8 oo. 
Tels Peete Peroge 76-29 76-119 77-8 Gc-Be Bide" Bi-1SBSage Borie 
- P = g - = = ye ad > - - 
89-36% 89-37% $2798 91-80 o-81. 91-108* 91-109* 91-110 94-58* 94-59% 94 
94-92% 94-93* 94-94 
66-58 . 66-64 66-86*  66-67* 66-96 74-80" 74-81% 74-111 74-147 74-148% 74-159 


52-32 
52-854 


65-107* 65-114" 65-120* 68-53* 68-55% 68-62% 68-68% 70-67* 70-69% 70-76%  70-85* 
70-129 75-55" 75-S7* 75-64% 75-708 76-93% 76-95" 76-102" 76-108* 78-57" 78-59 
78-113" 78-115" 78-122* 85-63*  85-65* 85-68% 86-56%. 86-58" 86-65" 86-69% 87-68 
87-90" 87-121% 87-123" 87-130* 89-75" 89-77" 89-84" 89-96% 90-75* 90-77* 90-84" 


55-2 66-20 74-33 76-36 90-7 Eco Singer te 
55-45* 55-1118 91-17% 91-87" 91-94« eke: 
40-47 


40-59 40-131 ‘ 
55-43 91-15 91-92 95-20 


13-96% ~ 13-99% 46-19% 46-20 46-25 — 46-82" “4pebos | 149-908 49-96 50-189" 50-190* 
55-66%  ~56-286%- 56-287* 56-294 s4* 
! ee. 13-58* 14-14% 14-178 14-198 15-20 re 15-39 15-434 


3-22¢ 13-278 
UN.SEK 5-148 13-154" 13-159% 13-160« 26 
1 








F 16 


UDAFS2.= UDA-52 FORMATTER DRACR X04.01 23-AUG-82 13:14:22 PAGE S- 
CROSS REFERENCE 2 2 22 PAGE S=21 


UNIT 


5-448 


69-21 
52-20 


Sidhe 


TABLE (CREF V 
13-18 13-30 
50-124 56-1 
87-113 89-5 

7-108 

7-48 

7-13 

?-7* 46-37 
13-37 
49-110 55-119 
66-23% 66-24 
16-10 
82-1544 
65-16% 65-18 
86-23* 86-25* 
19=7* 19=9« 
19-18 65-20* 
93-20* 

86-20" 86-78 
38-64 
91-44 

18-46 
85-15 

12-39 12-41 
ot) tees 
gs-82 8-38 
69-5* 69-43 
87-124 87-132 
70-123 = 70-131 
86-59 86-67 
65-102 68-50 
65-108 65-116 
68-56 68-64 
75-58 75-66 
6-26 76-104 
93-5 93-61 
78-116 78-124 

5-66 
82-30 91-166 
91-167 
69-24 
49-25% 82-129 
82-924 
82-944 
40-138 40-154 
94-304 
49-534 
40-142% 460-143 
55-1324 

34 

69-184 


-00 ) 


70-117 


49-54 


53-8 


68-47 
7-114 
5-33 

73-4% 


75-52 


50-37 


53-9 


13=103 
=46 
1-140 


74-211 


75-16% 


ae 
iB 


73-41 


76-90 


91-106 


94-12 


13013? 
70-4 
93-42 


76-144 


70-16% 
89-29% 
92-10" 
76-52* 


78-110 


94-16 


89-103 


75-19% 
90-28* 


78-18 


75-31 
85-41 


85-60 


5-47 


90-103 


75-21% 
90-30* 


85-24% 


75-48 
86-32 


86-53 


46-9 
76-86 


91-89 


98-16: 


85-95 


76-70 
87-98 


87-118 


46-15 
78-37 


76-57* 
93-18« 


86-13* 


76-87 
93-28 


93-47 


46-79 
78-105 


78-14% 


87-20* 


78-88 


46-81« 
85-55 


78-16% 


89-31 


78-106 





48-5 
86-48 


85-27« 


90-25* 


85-39 


-——- ee 1 


SEQ 201) 


G 16 





UDAFS2 = UDA=52 FORMATTER DMACR ee 01 23-AUG-82 13:14:22 PAGE $-22 
CROSS REFERENCE TABLE (CREF V04.00 ) 


XPERR 69-44 7g" 
XPNGRD 6 


5 
XSKIPS 55-48# 55-112 
XSKIPG 55-7 55-754 
XSKIPS 55-7 55-84 55-874 
XSKIP6 55-81 55-854 
XSKIP8 55-93 55-954 


XSLEEK 55-254 55-124 55-126 
XYZ 74-118 74-146 3974-173 74-184 = 74-193 74-1988 
74-1998 


H 16 





UDAFS2 = UDA=52 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE M-1 | 

CROSS REFERENCE TABLE (CREF V04.00 ) 

BCC ~48 7-24 1 10-25 10-29 11- 11- 18-1 31-23 31-25 31-27 31-29 32-11 33-19 
33-22 35-38 35-2 3 3 75-35 3 “3 3 “9 

BEQ ~4a 9-22 11-19 1 “$ 12-30 12-3 12-37 12-58 13-21 3-33 13=94 13-106 13-148 13-161 
13-196 1a 336 13-215 135-217 14-1 15-17 15-35 15-4 17-19 18-45 18-47 19-17 0-14 
$i-1) $7-48 “9 $3.) 25-1 25-15 25-1 26-1 26-20 8-9 30-7 31-14 31-32 1-35 

-14 -18 5-15 8-100 42-1 46-18 46-2 51 46-54 46-57 = 475 47-9 4 4 
30-57 0-73 50-95 50-117 50-115 50-121 149 50-161 1 50-188 51-15 51-17 51-32 

52-1 52-17 52-39 52-41 52-97 55-10 ~ 55-77 32-8) 55-128 56-25 56-4 6-63 7 
56-73 =75 56-102 56-113 56-123 39-138 56-166 56-171 56-217 56-2 56-241 56-250 56-253 56-258 
56-264 56-270 56-285 57-15 57-1 57-32 58-19 - 58-82 58-89 58- 58-114 58-142 8-172 
58-206 58-218 -6 64-36 64-39 65-104 65-106 65-112 oe 66-28 66-59 or ~ 


85-20 





TRA ES TS 


UDAFS2 = UDA=52 FORMATTER DMACR a 01 23-AUG-82 13:14:22 PAGE M-2 
CROSS REFERENCE TABLE (CREF -00 ) 


7-124 
1-161 


60-6 


1- 
58-154 





NN 


ze 


"PP 
2 @ @ Ae 
we 


9 
MNO 
BAe 


wen N 


8 
st 
— 
& 


VAISS LEMS SSS 
G 
a) 
& 


SPY TTYS 


78-2 
91-116 














1 


— St PD) SS Ss SS SS Ss SS Ss SS I 


74-218 74-223 74-226 74-229 76-147 
54-9 70-136 a wet a tt 


7-19 7-20 ei - $ 10-17 
13-119 lene? 13-135 = 13-1 13-170 
23-22 ak $7731 5=4 q-3° 

1-5 1-37 =1 =6 
59=4 66-13 66-15 $6"! 69-4 
84-7 95-10 95-12 95-18 
54-4 85-4 87-5 

7-32 8-24 9-26 10-37 11-24 
13-182 13-204 13-218 15-25 15-38 

1-20 $3-4¢ 24-17 25-54 

5-20 - 7-14 38-104 45-8 
52-106 53-21 53-42 54-10 55-138 
66-126 7-19 = 68-85 6 70-137 


6 9-51 
79-27 = 80-91 80-98 82-157 83-13 
92-26 93-82 94-106 95-63 96-16 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 
TABLE OF CONTENTS 


EQUATES 

DATA STRUCTURES 

MATH SUBROUTINES 

SDI SUBROUTINES 

OVERLAY PROCESSING ROUTINES 
MISCELLANEOUS COMMON ROUTINES 
DUP _DM<->HOST STARTUP OVERLAY 
INITIALIZATION OVERLAY (G1) 
DBN/ ORMAT 


FCT DOWN-LINE LOAD OVERLAY (F3) 
RCT UPDATE ay! F4) 

RCT READ OVERLAY (H 

FCT=>RCT CONVERSION ven ay (F5) 


R ov VER LAY 
FINAL CHECK OVERLAY (H2) 
FCT tA wy (F9) 
->D ,X ONVERSION OVERLAY (G5) 
ERROR hESSAGE OVERLAY (G6) 





J 16 


UDAFS2 = UDA=52 FORMATTER DMACR BOs 01 23-AUG-82 13:14:22 PAGE M-3 
CROSS REFERENCE TABLE (CREF -00 ) 


76-150 


82-144 


85-102 


95-49 


88-14 


95-59 


89-110 





AFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14: Oh PAGE 2 


UD 
DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION WITH 


1 


NONMOMINONO RY @ a ts 


SHER BWWWWAWII non 


Be Se Ve Fe Ge Ge Ge Ge Ge Ve Ge Ge Be Fe Ge Ge Be Be Se Ge Ge Ge Ge Ge Be Be Ve Be Be Ge Se Ge Se Be Se Se Se Se Se Ss See Be Se Ge Se Ge Se Ge Se Se Se Se 


ELOCATION"’ 


-TITLE UDAFM = UDA FORMATTER 
“IDENT /02.01/ 
eNLIST BEX 


COPYRIGHT (C) 1980,1981,1982 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
a COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
THE ABO OPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 


RSON EXCEPT FOR 3 
; WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
; THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


; LL. INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 


TICE 
; EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 


; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VERSION 01.00 
M. A. PARENTI 16-MAY-80 
MODIFIED BY: 

VERSION 02.00 


M. A. PARENTI 09-DEC-80 
NEW DM INSTRUCTIONS (MEM => MEM) 
CODE OPTIMIZATION 


“ne % 81 
A. PARENTI 
ADDED DOUBLE WORD ADDRESSING FOR OVERLAY ADDRESSES 


21-APR-81 
M. A. PARENTI 
FIX GROUP OFFSET CALCULATION 


23-APR=BT Len 
FIX" ZERO GROUP PROBLEM 


24-APR-81 
M. A. PARENTI 
FIX LBN GROUP PROBLEM 
FIX RECAL WAIT PROBLEM 


i ee | 


SEQ 205. 


| 
| 
| 
| 
| 
J 


SY 
16 
: SEQ 206 






UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 2=1 
DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION WITH “RELOCATION 


58 ; 

59 : 

60 3 05-MAY=- 

61 : M. Az PARENTI 

6 ; FIX SIZE PROBLEM FOR RA81 | 

64 : 13-MAY-81 

65 : M. A. PARENTI 

66 : ADD LIMITED DUP FUNCTIONALITY 

68 : IS-MAY=81 

69 $ “ihe ARENTI 

70 ; FIX SUBUNIT MASK PROBLEM 

72 : 1S-MAY=81 

73 : M. A. PARENTI 

ri : ONLY WRITE NON=PAD BLOCKS OF FCT 

7% : 15=MAY- 

77 : M. A. PARENTI 

78 : FIX COMPUTATION OF NON-PAD FCT BLOCKS 

80 : 15-MAY-81 

81 : M. A. PARENTI 

82 ; FIX BLOCK ZERO FCT PROBLEM 

84 : 28-MAY-81 

85 : M. A. PARENT 

86 F FIX SUBUNIT PROBLEMS 

87 : WRITE ONLY NON-PAD BLOCKS OF RCT | 

89 : 01-JUN-81 

90 : M. A. PARENTI 

31 ; FIX DOUBLE COMPARE PROBLEM 

93 ; 

94 $ 08-JUN-81 

95 : M. A. PARENTI 

%6 ; FIX EXISTING FCT FORMAT PROBLEM 

98 F 

S93 3 17-JUN-81 

100 : M. A. PARENTI 

101 : FIX SUBUNIT WRITE PROTECT PROBLEM 

103 : 17=JUN-81 

104 : M. A. PARENTI 

105 ; ADD STATUS UPDATES AT VARIOUS PLACES | 

107 : 22=JUN- | 

108 : M. A. PARENTI | 

109 : FIX RBN STARTING BITS PROBLEM | 

111 : 22-JUN-81 

112 ; M. A. PARENTI | 

113 ; FIX NON-PAD RCT INITIALIZE PROBLEM | 
. | 





ae - ——. 


mM 16 
SEQ 207 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 19 ORs ze PAGE 2-2 


DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION WITH "RELOCATION" 
06-JUL-81 
M. A. PARENTI 
FIX STATISTICS COUNT OF BAD BLOCKS TO NOT INCLUDE RBN 
18-AUG 
- A. PARENTI 
IX CLEARING OF ECC THRESHOLD 


16-SEP-81 
M. A. PARENTI 
KLUDGE RECIR AND LAST BITS FOR UDA BUG 


6-0CT~81 
M. A. PARENTI 
FIX JUSTIFICATION ON RESPONSES 


19-OCT-81 
M. A, PARENTI 
FIX ECC CHECKING AND MINOR FIXES TO QUESTIONS 


ws 
FIX CONVERSION BLOCK, CLEANUP COUNT 
CHECK FOR NO CORRECTION IF 0 THRESHOLD 


20-NOV-81 
M. A. PARENTI 

FIX PROBLEM WITH BAD RBN WHEN PRIMARY IN FCT 

ADD HEAD VERIFICATION ROUTINE AND MAKE FINAL CHECK 

ROUTINES A SEPARATE OVERLAY 


25-JAN~82 
M. A. PARENTI 
CHECK FOR VALID NUMERICS IN USER RESPONSES 
CHECK FOR UNIBUS ERRORS 

MODIFY LONG TIMEOUT 

CHECK FOR VALID STATUS IN GETUNT 


09-F EB-82 
M. A. PARENTI 
FIX VAX DATE ROUTINE 
18-FEB-82 
M. A. PARENTI 
CHANGE RETRY RECOVERY ON NON-CHECK PASS READS/WRITES TO NOT 
ISSUE A RECAL/RESEEK SEQUENCE AFTER RECOVERY LEVEL 0 


15-MAR-82 
M. A. PARENTI 
FIX PBN <=> LBN COMPARE PROBLEM IN FCT=>RCT CONVERSION OVERLAY 
24-MAR~82 
M. A. PARENTI 
FIX PBN => D/X/L/RBN CONVERSION TO TAKE INTO ACCOUNT OFFSET 
FIX BAD RBN WITH PRIMARY IN FCT PROBLEM 


a a ee ee ee me ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ed ed ed ee ed ed eed eed eed 


NNAXARXARAARAAAAAQDMMINMNNYIN Nan & BEEBE RE RE BRWWWWWIWNWIDP NON PPoPononuhn 2 a ee 


Pe Pe Ge Se Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Be Ge Se Gs Be Ge Ge Be Ge Be Be Ve Fe Bs Ve Ge Se Bs Ge Se Be Se Se Se Se Se Se Ses Se Se Ge Ge Ge Se Ge Ge Se Ge Ge 








SEQ 208 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 2-3 


DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION WITH RELOCATION” 
17 : 26-MAR~82 
17 : M. A. PARENTI 
1% ; FIX PBN INCREMENT IN D/XBN FORMAT SETUP 
176 : 10-JUN-82 
177 : M. A. PARENTI 
178 : FIX RBN START BITS FOR PRIMARY 
179 : FIX RCTTOT DECREMENT 
181 > UDASO DISK FORMATTER 
183 : 


ee — ee 


| 
‘eouat s 
i 
1 
2 
3 
4 
5 
6 
? 
8 
9 000000 
10 
11 
i2 
13 
14 000000 
15 000001 
16 000002 
17 
18 
19 
20 
21 
22 
23 
24 000000 
25 000000 
26 000005 
2? 1 
28 -. 2 
29 000003 
30 000004 
31 000000 
32 000400 
33 000401 
34 
35 
36 
37 
38 
39 
40 
41 000000 
42 000001 
43 000002 
44 000003 
45 
46 
47 
48 000000 
a3 000001 
50 00000 
51 00000 
5 000004 
3 000005 
55 900007 
56 000010 
57 000011 


SEQ 209 


ee es UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 3 


~SBTTL EQUATES 
EQUATES 


CONDITIONAL FLAGS 
= 0 PRODUCTION (1) 


sNOT PRODUCTION (0) 
OFFSETS FOR FORMAT TRACK TABLE 


= 0. oe ta POINTER OFFSET 
= 1. ;LOW ORDER HEADER OFFSET 
= 2. HI ORDER HEADER OFFSET 


OFFSETS FOR READ/WRITE BUFFERS 


= 0 3 STATUS (12-15), NEXT BUFR PTR (0-14) 
= 0. ; ALSO USED AS ECC ERROR INDICATOR 

= Se ; POINTER TO DUMMY SDI CONTROL BLOCK 
= He 3 POINTER TO DATA BUFFER 

= ¢: 3 1ST HEADER WORD (LO ORDER LBN) 

= e 3 2ND HEADER WORD (HI ORDER Mae 

= 4. 3; SOI RT CMD (8-15), HEAD ADDR (0-7) 

= 0. 3; 1ST WORD OF 256 WORD DATA BUFFER 

= 256. : EDC 

= 257. : 1ST ECC RESIDUE 


OFFSETS FOR CHECK PASS READ COMMANDS 


:LOW ORDER BLOCK NUMBER 


= 0. 

- 1. HIGH ORDER BLOCK NUMBER 

= . READ COMMAND TRACK NUMBER 
= 3. IMAGE COUNTER 


XFC DEFINITION EQUATES 


oO 
. 


Fy rng Hf XFC CODE 
HA poy TRACK XFC CODE 
;READ_N SECTORS XFC CODE 
3WRITE N SECTORS XFC CODE 
I COMMAND X 0D 


- 

¢: 

4. SD 

é: ERECEIVE Sb sot SPESSAG KFC CODE 
5: 


sECHO DATA TO DRIVE XFC CODE 
;DRIVE INITIALIZE KFC CODE 





SEQ 210 





EQUATES 


UDAFH = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 3-1 
58 900012 SIP - 10. :WAIT FOR SECTOR/ INDEX PULSE XFC CODE 
59 00001 UREAD = 13. [READ UNIBUS MEMORY XFC CODE 
000014 UWRITE = Ie. SWRITE UNIBUS MEMORY XFC CeOpE 
61 000015 ECC = 13. [D0 ECC ON BUFFER 
6 000016 MAINTR = 14. SSEND MAINT READ DATA XFC ¢ 
6 00001 MAINTW = 15. SRECEIVE MAINT WRITE DATA XFC CODE 
64 000020 CVT S 16. SCONVERT TO PHYSICAL ADDRESS XFC CODE 
65 000021 DONE = 17. S TERMINATE DM PROGRAM XF 
66 000022 UPDATE = 18. [UPDATE DUP PROGRESS INDICATOR XFC 
68 ; GET CHARACTERISTICS OFFSETS 
70 000090 SHORTO = 0. zSHORT TIME OUT 
71 000001 FRCPY = 1. ‘NUMBER OF F/RCT COPIES 
72 000001 RTRY = 1. [NUMBER OF RETRIES 
73 000001 LONGTO = 1. LONG TI OUT 
7% 000002 ERRSYM = 2. [NUMBER OF ALLOWABLE ECC ERRORS 
75 000002 ERCV = 2. TERROR RECOVERY LEVELS SUPPORTED 
26 000007 REVSEC = ? TREVS/SECOND 
} 000011 OFFS = 9. [GROUP OFFSET 
78 000000 CYLBN = 0. ‘CYLINDERS IN LBN AREA 
000002 STL = 2. [HIGH ORDER STARTING LBN 
80 000003 STRBN = 3. ‘HIGH ORDER STARTING RBN 
81 000002 STYBN = 2. SHIGH ORDER STARTING XBN 
82 000003 STDBN = 3. [HIGH ORDER STARTING 
83 000001 STCYL = 1. THIGH ORDER STARTING CYLINDER 
1 LBNTRK = 9. ‘NUMBER OF LBNS PER TRACK (512) 
BS RBNTRK = 4. [NUMBER OF RBNS PER T 
000021 XBNCYL = 17. [NUMBER OF CYLINDERS IN XBN AREA 
87 000022 DBNCYL = 18. [NUMBER OF CYLINDERS IN DBN AREA 
000012 LBNHOST = 10. [NUMBER OF LBN'S IN HOST AREA 
89 000002 GRPCYL = é- :GROUPS/CYLINDER 
000003 TRKGRP = . : TRACKS/GROUP 
91 000010 rcrsz. = 8. [FCT SIZE IN SECTORS 
92 000014 RCTS2 = 12. : 7E IN LBN'S 
93 000005 DATA. = 5. PREAMBLE SIZE 
34 000005 HEAD = 5: SHEADER PREAMBLE SIZE 
96 : | 
44 : BIT DEFINITIONS | 
99 : 
100 000001 BITO Ss = 000001 
101 000002 BIT1 = 000002 
102 000004 BITe + 000004 
103 000010 BIT = 000010 
104 000020 BITS == 000020 
105 000040 BITS == 000040 
106 000100 BITG = 000100 
107 000200 BIT = 900200 
108 000400 Bi1g8 Ss = 
109 001000 BIT? = 001000 | 
110 002000 BIT10 = 92000 | 
111 004000 BIT11 = | 
112 010000 BITIe > 10000 
113 020000 BITI3. = 20000 
114 040000 BIT14 = 0000 | 
| 
| 
J 
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SEQ 211 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 3-2 
EQUATES 
115 100000 BITI5 = 100000 
117 ; 
118 ; 
119 : RANDOM DEFINITIONS 
120 3 
121 F} 
122 177400 HIBYTE = 177400 ;HIGH BYTE MASK 
123 000377 LOBYTE = 000377 ‘LOW BYTE MASK 
124 177700 HI2BYTE = 177700 ‘HIGH BYTE PLUS 2 BITS 
125 177600 HIIBYTE = 177600 ‘HIGH BYTE PLUS 1 BIT 
126 007777 2 007777 TALL BUT HEADER CODE 
127 177760 FCLR = 177760 [CLEAR FOR FRCPY 
128 170377 STCLR = 170377 [CLEAR FOR STARTING BITS 
129 007777 BUFMSK = 007777 SBUFFER CLEAR MASK 
130 000004 VLD = BIT2 ZSTATUS VALID BIT(1=VALID) 
131 000010 VLD1 == BIT3 ZSTATUS VALID BIT(1=VALID) 
132 000200 PARITY = BIT? ZSTATUS PARITY BIT(1=PARITY ERROR) 
133 000400 PARIT1 = B1T8 SREAL TIME ERROR(1=ERROR) 
13 
137 000175 UNSEC = 000175 SUNSUCCESSFUL COMPLETION 
139 : HEADER CODES 
141 HD.LBN = 00000 :G00D LBN 
142 060000 HD.RBN = 60000 :GOOD RBN, PERHAPS UNUSED 
143 030000 HD.REV = 030000 SREVECTORED LBN 
144 110000 HD.BAD = 110000 3BAD BLOCK 
145 050000 HD.PRV = 050000 ZPRIMARY REVECTORED BLOCK 
146 170000 [CLR = 170000 [CLEAR HDR CODE 
147 140000 ; = 140000 ; 
148 120000 HD.XBN = 120600 [GOOD XBN 
149 100000 = BIT15 [PRIMARY BIT IN FCT 
150 010000 FBCHD = BIT12 ‘BAD HEADER CODE IN FCT 
13¢ ; RCT HEADER CODES 
154 00 RC.FRE = 000000 ;FREE REPLACEMENT BLOCK 
155 020000 RC.PRV = 020000 [PRIMARY REVECTOR 
156 030000 RC.SND = 030000 :SECONDARY REVECTOR 
157 040000 RC.UNU = 040000 [BAD REPLACEMENT BLOCK 
158 100000 RC.NUL = 100000 SNULL(FILL) BLOCK 
160 F DRIVE STATUS BITS 
162 100000 RWRDY = BIT15 ZREAD/WRITE READY BIT POSITION 
163 000002 ATIN. = BIT1 SATTENT 
164 000001 RCVRDY = BITO SRECEIVER READY 
166 : | 
167 : 
168 ; GET STATUS BIT MASKS 
170 000001 ST.RU = BITO ;RUN/STOP SWITCH 1=IN 
171 000002 ST.PS) = BIT1 sPORT SWITCH 1=IN 
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2+BIT13+B1T14+BIT15 


So 


~“N 
= 


TABLE OFFSETS 






sDIAGNOSTIC REQUESTED 1=VES 
WRITE PROTECT SW Nhs, $U:0,1 1=IN 
SPINDLE READY 1=VES 

:DIAG CYL ACCESS ENABLED 1=YES 


; E 0 
sDIAG FAILED = CANNOT DRIVE CLEAR 


COMBINED CLEARABLE ERRORS BITS SET 


ERROR BYTE OFFSET (3RD WORD) 


NUMBER OF OVERLAYS 

LENGTH OF 1 OVERLAY BLOCK 
WORD COUNT CF OVERLAY 

LOW ORDER UNIBUS ADDRESS 
HI ORDER UNIBUS ADDRESS 


I ABLE 
VERLAY 4a INTO TABLE 
OFFSET INT L 


INTO TABLE 
ESEVENTH eA OFFSET INTO TABLE 
[NINTH OVERLAY 
ELEVENTH OVERLAY 


;NINETEENTH OVERLAY 
: TENTH OVERLAY 


sFCT ges | 


ST_GUESS IF FCT ry 
ERCT fd BLOCK FIXED 
FCT FOUND BAD es STATS) 
NG FORMAT 


sBeST GUES LOAD FLAG 

; SS FORMAT 
WRITE FCT SCRATCH 
‘INIT RCT FLAG 








SEQ 213 

UDAFH = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 3-4 

229 040000 FINI = BIT14 ZFORMAT FINISHED FLAG 

230 010000 CHRDNE = BITI2 S CHARACTERISTICS DONE FLAG 

331 100000 RTY = BIT1 SRETRY FLAG 

233 $ 

234 : FLAG] EQUATES 

$30 ; 

237 000001 = BITO ZWRITE PROTECT FLAG 

238 000002 RTYDN = BIT1 ‘RETRY DONE ON THIS SECTOR 

239 04 RPRIM = BIT2 [FLAG FOR PRIMARY GOOD E 

240 000010 ERDN = BIT3 ZFLAG FOR ERROR EXIT TRY 

241 000020 DEAD = BIT4 ‘HOST GONE FLAG 

242 000040 BDHD == BITS 'BAD HEADER ON CHECK PASS READ 

243 000100 RCINDN = BIT6 ‘RCT INIT DONE (WITH ONE FULL PAD BLK) 

244 000200 QUESDN = BIT7 [STARTUP QUESTIONS FINISHED 

245 000400 FLIPON = BIT8 ‘FLIP FLAG FOR CONVERS! 

246 001000 REPEAT = BIT9 SREPEAT QUESTION FLAG FOR STARTUP 

247 002000 GTFLAG = BIT10 [FLAG FOR GE 

248 004000 STFLAG = BIT11 ‘FLAG FOR STOB MACR RO 

249 010000 BDTST = BIT12 [FLAG FOR TEST OF BAD HEADER IN VERHD 

230 020000 FPRIM = BIT13 [FLAG FOR PRIMARY IN FCT 

252 ; 

$37 : PHYSICAL CONVERSION XFC BLOCK EQUATES 

255 000000 v1 = Q :CYLINDER PARAMETER 

256 000002 v2 = K NUMBER PARAMETER 

257 000004 v3 = * :BLOCKS PER TRACK PARAMETER 

258 000005 v4 = 5. FOR RBN'S 

259 000006 CYL = 6. CYLINDER RE TURNED 

260 000010 GRP = 8. : GROUP RETURNED 

261 000011 TRK - 9. TRACK RETURNED 

262 000012 STSC = 10. ISTARTING SECTOR RETURNED 

263 000013 INDSEC = 11. SSECTOR FROM INDEX 

265 : 

266 : DMBUF OFFSETS 

eh 

369 000016 DMBUFL = 14. :BUFFER LENGTH 

271 ; 

272 ; 

273 : FCT BLOCK OFFSETS 

27% : 

$7 000002 FSER 2 :SERIAL NUMBER 

277 000001 INST = 1 [FORMATTIN INSTANCE NUMBER 

278 000016 C512. 14. [COUNT OF USED aS ENTRIES IN FCT 

279 000012 FDAT = 10. :MOST RECENT FORMAT DATE 

280 000025 FCTFLG = 21. ‘FCT FLAG FOR OAOD YBAD FCT 

281 100000 NOFCT = B1T15 SFLAG = 0 = FCT GOOD 

282 ; 1 = FCT KNOW BAD 

283 

284 ; 

285 ; RCT BLOCK OFFSETS 
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UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 3-5 
EQUATES 


RSER 0 ;SERIAL NUMBER OFFSET 
DEFINITIONS 


sLENGTH OF 2 IMAGE ENTRIES 
sLENGTH OF 3 IMAGE ENTRIES 
sLENGTH OF CHECK PASS READ BLOCK 
sLENGTH OF REVECTOR TABLE ENTRY 
sLENGTH OF SECONDARY TABLE 

3 READ COMMAND 


SDI WRITE COMMAND 

;SIGNAL TO XFC NO MORE BLOCKS 
ZECC ys BIT 
NUMBER REN yet IN REVECTOR 
i SECTOR SIZE IN WORDS FOR 512 BYTE 
sSECT = oat ie WORDS FOR 576 BYTE 


OCK 

BUFFER 
; A MAGE BUFFER 
sRECIRCULATE IN FORMAT IMAGE BUFFER 
sFCT MODE INDICATOR FOR 512 
FCT MODE INDICATOR FOR 576 
TIMER LOOP ae 

Y WRITE ye LIMIT 


iF I SECONDAR 
OVERLAY gry ~ avi FROM DUP 


woo 
ee 


OWS -9OOWwroy Done 
COMI ONo—e « « 
4 


BLANK IN LOW ORD 
WORD WITH 2 ASCII BLANKS 


be pe per per pe pr ber rh 


9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 

320 


SUBUNIT OFFSET MASK 
:UNIT NUMBER OFFSET 


BUFFER DEFINITIONS 
BUFFERS ARE 269 WORDS LONG AND ARE LOCATED AT LOC 4535(8)-7777(8) 


sBUFFER 1 AT LOCATION 4535(8) 
3 ¢ AT LOCATION 5152(8) 
z LOCATION 

5 


Ww 


007831 
BUFFER ASSIGNMENTS 


sREAD/WRITE BUFFER 
2BUFF ER OF BAD PBN'S 


A FOR GOOD SECTOR 
DATA PATTERN 4 Bad REVECTOR 
SECONDARY REVECTOR BUFFER 


WIRE 


Ww 
Le ek = °) 
“unnoanw 


SRE 


RE VBUF 
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SEQ 215. 





UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 3-6 


| 
EQUATES 
343 006621 BUF = BUFS sREAD COMMAND BUFFERS 
4 006621 RCTBUF = BUF5 RCT BLOCK a A 
5 1 RBNBUF = BUFS ;RBN FORMAT BUFFER 
6 006621 BDLST = BUFS ;HEAD VERIFICATION BUFFER | 
347 007321 CLBUF = BUF6 USED IN FINAL aoe” 
348 007321 IMAGE = BUF6 sFORMAT IMAGE BUFFER | 
349 7BUFFER EXCESS AFTER FORMAT IMAGE 
350 31S USED TO HOLD BLOCKS TO BE 
351 sREVECTORED. MAX BLOCKS BEFORE 
352 ;REVECTOR ROUTINE IS CALLED VARIES 
353 WITH THE SIZE OF THE FORMAT BUFFER AREA 
tee 007775 BMAX = 7775 MAX BUFFER ADDRESS 





SOONAVEWN OO OONOUSWh 
~N 


PDI DIN ed ed ed at od 2 os se 


003023 


000000 
000000 


ENTRY: JMP 
: DATA STRUCTURES 
: RETRY COUNTERS 
UN.ERR: .WORD 0 
UN.ERT: .WORD 0 
UN.ERI: .WORD 0 
UN.SEK: .WORD 0 
: READ COMMAND BLOCK 
WRBLK: 
RDBLK: .WORD 100000 
“WORD 0 
“WORD 0 
“WORD 0 
“WORD 0 
;WORD 0 
; DUMMY DOUBLE WORDS AND DUMMY SDI COMMAND 
HSLIM: .WORD 200 
“WORD SCR-5 
DDUMMY: .WORD 0 
“WORD 0 
TEMP2: 
MULPC: .BLKW 2 
“WORD 0 
OFFSET: 
TEMP:  .BLKW 2 
: CURRENT UDA PORT 
UNIT: .WORD 0 
“WORD 0 
: MESSAGE TABLES 
CR.GST: MSG GST,1,ST,7 
CR.GCR: MSG GCR,1,CR,11. 
CR.GSR: MSG GSR.2-SCR,19. 
“DIS: MSG DIS.2.S1,6 
“RUN: MSG RUN,1,ST.6 
CR.ACC: MSG ACC,3,ST.6 
“CLR: MSG DCLR,2,ST,6 
“SEK: MSG ISEEK,6,S1,6 
CR.RCL: MSG IRECAL,1,S1,6 
CR.ERV: MSG ERECOV,2,S1,6 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 5 
DATA STRUCTURES 


-SBTTL DATA STRUCTURES 
DMCODE yon .0,714,13,255. 


SH 


3 JUMP TO START LOCATION 


sUNSUCCESSFUL CMD RETRY CNTR 

: TRANSMISSION ERROR RETRY CNTR 
 INITLIZATION ERROR RETRY CNTR 
SEEK RETRY COUNT 


STATUS POINTER 

POINTER TO DATA BUFFER 
FIRST WORD OF EXPECTED HDR 
SECOND WORD ' 

REAL-TIME SDI COMMAND 
POINTER TO SDI BLOCK 


;HEADER CMP LIMIT 
:POIN TER TO SUBUNIT CHAR 


OUBLE WORD FOR ONE 
‘BY YTE OPERAND CONVERSION 


[USED FOR COMPUTATIONS 


:SDI_ INTERCONNECT 
sUNIT NUMBER ENTERED 


3GET STATUS 

:GET CHARACTERISTI 
ET ee ey CHARACTERISTICS 

UNLOAD DRIVE 

sLOAD DRIVE 

SET FORMAT ACCESS 

2DR IVE CLEAR 


TRECALIBRA TE 
ERROR RECOVERY COMMAND 





UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 5-1 
DATA STRUCTURES 


eh a a es a ts tt st I 


58 001012 


QSEALARISS 


ggessegs 
see8ss$ 


RWNASSS VEAL AVIS OS VS ARG LO Oo RUN 
COUEWN—GCOnaaunlwn—on 


gassgassgessgessgessees 


INN = ek ed ed ad od td IO 
=O 


CR.ONL: 


MSG ONLINE ,2,ST,6 
MESSAGES AND COMMANDS 


GsT: .WORD 000011256. 
GCR:  .WORD 000207#256. 
GSR:  . WORD 00210*256. 
“WORD 
DIS: <.WORD  000204*256. 
-IF EQ PROD 
-WORD 0 
.1FF 
~ WORD 1 
~ENDC 
RUN:  .WORD 000014*256. 
ACC: WORD 000201*256. 
~ WORD 6 
DCLR: <:WORD 000005*256. 
~ WORD 374 
ST: -BLKW 7 
CR: “BLKW =o. 
SCR: eBLKW 19. 
ISEEK: WORD 000012256. 
~ WORD 0 
eWORD 0O 
~ WORD 0 
IRECAL: .WORD 090216*256. 
ERECOV: ern 000006*256. 
ONLINE: .WORD 600213*256. 
eWORD 377 
: DISK LOCATION POINTERS 
CURRBN: .WORD 0 
«WORD 0 
CURPBN: .WORD 0 
“WORD 0 
CURTRK: .WORD 0 
CURBN: .WORD 0 
~ WORD 0 
CURLBN: 
CURXBN: .WORD 0 
eWORD 0 
STASEC: 
HOLDBN: .WORD 0 
“WORD 0 
HOLRBN: .WORD 0 
eWORD 0 
HOLDPN: .WORD 0 
“WORD 0 
CYLNUM: .WORD 0 
“WORD 0 
SECTRK: :WORD 0 
“WORD 0 
SECTCY: .WORD 0 
;WORD 0 


sNOT PRODUCTION 
PRODUCTION = SPINDOWN 


sONLINE COMMAND 


2GET STATUS COMMAND 

3GET CHARACTERISTICS 

;GET SUBUNIT CHARACTERISTICS 
2 SUBUNIT MASK 

sO PIN DRIVE 


PINDOWN 
NO SPIN DOWN MODIFIER 


: SPINDOWN 


s INITIATE LOAD 
oe DIAG AND FMT CYL 
MASK BYTE/MODE BYTE 
{DRIVE CLEAR 
BITS TO CLEAR 
sSTATUS MESSAGE BUFFER 
; CHARACTERISTICS MESSAGE BUFF 
SUBUNIT CHARACTERISTICS BUFF 
3 INITIATE SEEK 


{INITIATE RECAL 
RROR RECOVERY COMMAND 
:RECOVERY LEVEL 


; ON COMMAND 
COMMAND TIMEOUT (SECS) 


3 CURRENT REN 
3 CURRENT, PBN 


CURRENT TRACK 
CURRENT BLOCK NUMBER 


2FOR RCT INIT 
sCURRENT XBN NUMBER 


sFOR HEAD VERIFICATION ROUTINE 
;BLOCK K NUMBER OF FIRST BLOCK ON CYL 


SBLOCK NUM OF FIRST RBN ON CYLINDER 


:PBN OF FIRST SECOTR ON TRACK 


;CURRENT, CYLINDER NUMBER 
; SECTORS/TRACK 
; SECTORS/CYLINDER 





SEQ 217 





UDAF 
DATA 


M = UDA FORMA 
STRUCTURES 

115 001134 

116 001136 

117 001140 

118 001142 

119 001144 

120 001146 

121 001150 

122 O01 000000 
123 001153 000000 
124 001154 000000 
125 001155 

126 

127 

128 

129 

130 

131 

132 

133 001157 

134 001216 000000 
135 001217 000000 
136 

137 

138 

139 

140 

141 OOts 0 00 
142 001221 00 
143 001222 000000 
144 001223 000000 
145 001224 000000 
146 001225 000000 
9 4 001226 000000 
149 001227 000000 
150 001230 000000 
151 001231 000000 
152 001232 000000 
153 001233 000000 
154 001234 000000 
155 001235 

156 

157 

158 001236 

159 001236 004704 
160 001237 000000 
161 001240 000000 
162 001241 

163 001243 

164 001245 000000 
165 B01¢66 006000 
166 001247 000105 
167 001250 000400 
168 001251 000100 
169 001252 002000 
170 001253 000000 
171 001254 000000 


CUROVL : 


HGHPBN 


RCTTOT: 


CUTOF 


ERPNT: 


BUF PNT: 






TTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 5-2 


NMmMoOoOONen 


DEFINITIONS 


Soooooo Goooo°ooo 


S 


SMmnrmocor) 


oo——AAO 


a Sao oS 


SEQ 218 


;LBN'S IN LBN AREA 
sRBN'S I 


: E 
sREVECTORED RBN NUMBER 


[CURRENT OVERLAY 
[HIGHEST PBN IN LBN AREA 


3 STACK 
TOP OF STACK 
STACK PTR TEMP SAVE 


; WORD 

2FLAG WORD 

sRE-FORMAT FLAG 

zRCT WRAP _FLAG 

POINTER TO PBNTAB ENTRY 

sPOINTER TO BEGINNING OF REVECTOR BUFFER 
; NUMBER OF REVECTORS BEFORE 


; OUTI 
sNUMBER OF SECTORS IN ERR 
DOUBLE WORD TEMP STORAGE 


sADDRESS OF END IMAGE BLOCK 

sSTARTING ADDRES OF THIS PASS 

OFFSET FOR FIRST READ CHECK 
NTERLEAVE 


E 
zALSO RCT TOTAL HOLDING AREA 
east toes CUTOFF 


;DOUBL 
sCOUNT OF USED FCT ENTRIES FOR FORMATTING 
ssi OF ONE FCT COPY 


I 
CTOR LIST POINTER 
ER POINTER FOR FCT READ 











SEQ 219 





AFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 bees 5-3 


uD 
DATA STRUCTURES 


172 001255 000000 REVCNT: .WORD 0 shoves Tos COUNT 

173 001 26 000000 FCTPTR: .WORD 0 TO CURRENT LOCATION IN FCT LBOKC 
174 001257 000001 FCTCNT: .WORD 1 S CURRENT FCT BLOCK 

175 001260 000000 eWORD 0 

176 001261 000000 FCTNPD: .WORD 0 sNON~PAD FCT BLOCKS 

177 0012 000000 RCTLBN: .WORD O LBN'S IN RCT 

178 001263 000000 MNCNT: .WORD 0 ZUSED FCT ENTRIES 

179 001264 000016 DMBUF: .REPT 14. NTENANCE BUFFER 

180 -WORD 0 MAKE SURE IT IS 0 

181 ~ENDM 

182 001302 DATE: .BLKW 4 sDATE BUFFER 

183 001 SERNUM: .BLKW 4 sSERIAL NUMBER 

184 001312 000000 FCTREV: .WORD 0 :FCT ENTRIES AT CERTAIN POINTS 
185 0013135 000000 LBNBAD: .WORD 0 STOTAL REVECTORED LBN'S 
186 001314 000000 RCTBAD: .WORD 0 ;TOTAL BAD RCT BLOCKS 
187 001315 000000 DBBAD: .WORD 0 ;TOTAL DBN BAD BLOCKS 

188 oo1316 000000 XBBAD: .WORD 0 ; TOTAL LBN BAD 

189 001317 060001 FCMSG: .WORD 60001 sDUP CODE 

190 001320 000000 IMSTAR: .WORD 0 :POINTER TO START OF IMAGE 
191 001321 000000 HPREA: .WORD 0 [HEADER PREAMBLE LENGTH 
192 001322 000000 DPREA: .WORD 0 PREAMBLE LENGTH 
193 001323 000000 -LBN: .WORD 0 sSTARTING LBN BI 

194 001324 000000 -RBN: .WORD 0 sSTARTING RBN BITS 

195 001325 000000 ST.XBN: .WORD 0 sSTARTING XBN BITS 

198 001326 000000 ST.DBN: .WORD 0 :STARTING DBN BITS 

198 3 

199 ; OVERLAY POINTERS 

so 5 NOTE: 

202 3 WHEN ADDING AN ENTRY TO THIS TABLE EQUATE 

it 3 OVCNT MUST BE INCREMENTED 

205 001327 001057 OVLTBL: .WORD OVL.F1 sLENGTH OF FIRST OVERLAY 
206 0013 013176 eWORD OVS.F1 sLOW ORDER HOST ADDRESS 
207 001331 000000 eWORD 0 sHIGH ORDER HOST ADDRESS 
208 001332 001402 eWORD OVL.F2 ;LENGTH OF SECOND OVERLAY 
209 001333 016304 eWORD OVS.F2 ;LOW ORDER HOST ADDRESS 
210 001334 000000 -WORD 0 sHIGH ORDER HOST ADDRESS 
211 001335 22 «WORD OVL.F3 sLENGTH OF THIRD OVERLAY 
212 001336 023346 eWORD OVS.F3 3LOW ORDER HOST ADDRESS 
213 001337 eWORD 0 sHIGH ORDER HOST ADDRESS 
214 001340 52 eWORD OVL.F4 ;LENGTH OF FOURTH OVERLAY 
215 001341 024412 eWORD OVS.F4 3LOW ORDER HOST ADDRESS 
216 001342 . 0 sHIGH ORDER HOST ADDRESS 
217 001343 001202 eWORD OVL.FS sLENGTH OF FIFTH OVERLAY 
218 001344 026764 «WORD OVS.F5S :LOW ORDER HOST ADDRESS 
219 001345 000000 eWORD 0 sMIGH ORDER HOST ADDRESS 
220 001346 000334 -WORD OVL.F6 sLENGTH OF SIXTH OVERLAY 
221 001347 032510 -WORD OVS.F6 :LOW ORDER HOST ADDRESS 
222 001350 000000 -WORD 0 sHIGH ORDER HOST ADDRESS 
2235 001351 000450 eWORD OVL.F7 [LENGTH OF be abs OVERLAY 
224 Oot ees 031370 eWORD OVS.F7 3LOW ORDER HOST ADDRESS 
225 00135 sia ee! -WORD 0 sHIGH ORDER HOST ADDRESS 
226 001354 00057 eWORD OVL.F8 sLENGTH OF EIGHTH OVERLAY 
227 001355 021310 -WORD OVS.F8 3LOW ORDER HOST ADDRESS 
228 001356 000000 -WORD 0 [HIGH ORDER HOST ADDRESS 
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DATA STRUCTURES 


OVL.F9 
OVS.F9 


0 
OVL .G2 
OVS .G62 


OVL .G3 
OVS .G3 


0 
OVL.G4 
os 


OVL.G5 
OVS.G5 


OVL.G? 
OVS.G7 


0 
OVL .G8 
OVS.G8 


OVL.H1 
een 


OVL.G1 
0 


OVL .G6 
0 


OVL.H2 


4 


sLENGTH OF NINTH OVERLAY 
:LOW ORDER HO Ss 


; DRESS 

LENGTH OF TWELFTH OVERLAY 

LOW ORDER HOST ADDRESS 

HIGH ORDER HOST ADDRESS 

LENGTH OF THIRTEENTH OVERLAY 

ORDER HOST AD yi 

HIGH ORDER HOST ADDRES 

3LEN NGTH OF FOURTEENTH OVERLAY 
LOW ORDER HOST ADDRESS 

;HIGH ORDER HOST ADDRESS 

LENGTH OF FIFTEENTH ee 

ait ORDER HOST ADD 


H ORDER HOST ADDRESS 
3LENGTH OF SIXTEENTH OVERLAY 
OW ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
:LENGTH OF SEVENTEENTH OVERLAY 
OW pots 
HIGH ORDER HOST ADDRESS 
LENGTH OF EIGHTEENTH OVERLAY 
LOW ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
;LENGTH OF NINETEENTH OVERLAY 
LOW ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
FOR BUFFER OVERLAYS 


SEQ 220 


ee ee - 


| wy 1 
SEQ 221 
| UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 6 
DATA STRUCTURES 
1 . 
| 
| 5 : CONVERSION BUFFER 
| 5 : 
| g 001424 CONBLK: .BLKW 12. CONVERSION BUFFER 
| # 3 
3 : COMPARE DATA XFC CONTROL BLOCK 
' ° 
11 001440 000377 NUM: «WORD 255 NUMBER OF WORDS IN PATTERN 
1 001441 004536 CBUF: .WORD RDBUF+1 BUFFER TO COMPARE(NOT FIRST WORD) 
; 13 001442 155555 FWRD: .WORD 155555 sFIRST WORD OF PATTERM 
14 001443 133333 SWRD: .WORD 133333 SECOND WORD OF PATTERN 
15 001444 066666 TWRD:  .WORD 066666 THIRD WORD OF PATTERN 
18 001445 177777 DWRD: .WORD 177777 DIAGNOSTIC WORD(FIRST IN SECTOR) 
18 : 
19 001446 030206 EDC: WORD 30206 zEDC FOR ABOVE DATA PATTERN 
20 001447 147571 BADEDC: .WORD 147571 BAD EDC FOR RBN BLOCKS 
22 3 
$3 3 COUNTERS 
25 001450 000000 ERRCNT: .WORD 0 zFOR TESTING VERIFICATION 
26 001451 000000 SECCNT: .WORD 0 SECTOR COUNT 
27 00145¢ 000000 N: -WORD 0 NUMBER OF ORIGINAL CHECK PASS READ 
28 001453 000000 NI: .WOR 0 NUMBER OF ERROR READS 
29 001454 000000 NN1: WORD 0 3 0 
30 001455 CNICYL: .WORD 0 NUMBER OF CYLINDERS TO FORMAT 
31 001456 000000 «WORD 0 
32 001457 000000 HD.CUR: .WORD 0 CURRENT HEADER 
33 001460 CURGRP: .WORD 0 CURRENT GROUP 
34 001461 000000 CRPCNT: .WORD 0 NUMBER OF GROUPS TO DO 
35 001462 TRKCN’: .WORD 0 NUMBER OF TRACKS TO DO 
36 001463 000001 ONE : WORD 1 WORD CONSTANT OF 1 
37 001464 000000 «WORD 0 DOUBLE WORD 
38 001465 000002 TWOC: .WORD 2 zWORD CONSTANT OF 2 
39 001466 000000 WORD 0 DOUBLE WORD 
40 001467 000000 SNDCNT: .WORD 0 COUNT OF SECONDARY REVECTORS 
41 001470 000000 RTYCNT: .WORD 0 COUNT OF SECTORS RETRYED 
42 001471 CURPNT POINT FOR HEAD VERIFICATION 
43 001471 000000 UPDPNT: .WOR 0 POINTER FOR RCT UPDATE 
44 001472 000000 TOTRCT: .WORD 0 TOTAL LBN'S IN RCT’S 
45 001473 000000 WORD 0 : ” 
46 001474 000000 RCTCNT: .WORD 0 CURRENT RCT BLOCK 
47 001475 000000 PCNT: .WORD 0 3PBN BLOCK COUNTER 
48 001476 000000 COUNT: .WORD 0 : T FOR XBN DLL 
49 001477 000005 RETRY: .WORD 5 RETRIES FROM SDI 
50 001500 RECOV: .WORD 0 RECOVERY LEVELS SUPPORTE BY DRIVER 
| 51 001501 000000 TMPTRY: .WORD 0 TEMP FOR RETRY COUNT 
| 52 001502 000000 RECTMP: .WORD 0 TEMP FOR ERROR RECOVERY LEVEL 
| 
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MATH SUBROUTINES 









} .SBTTL MATH SUBROUTINES 

5 ; 

4 : SUBROUTINES 

é : 

f : DOUBLE ADD ROUTINE 

2 : INPUT PARAMETERS 

i : R3 CONTAINS POINTER TO OPERAND 1 

13 : R4 CONTAINS POINTER TO OPERAND 2 

15 : OUTPUT PARAMETER 

Vv : R4 CONTAINS THE RESULT 

19 001503 DADD: PUSH RS :SAVE A SCRATCH REGISTER 
20 001504 PUSH = R1 iSAVE ANOTH ER 

21 001505 104235 MOV (R3)+,R5 [GET LOW ORDER OPERAND 
22 001506 104131 MOV (R3),R1 GET HIGH ORDER OPERAND 
23 001507 105245 ADD (R4)+,R5 TADD LOW ORDER OPERAND 
24 001510 041512 BCC DADD1 ZBRANCH IF NO CARRY 

25 001511 115401 INC R1 ZADD ONE TO HIGH IF CARRY 
26 00151@ 105141 DADD1: ADD (R4),R1 [ADD OP 2 

27 00151 100141 MOV R1, (R4) [SAVE HIGH ORDER 

8 001514 100445 MOV R5.=(R4) SAVE LOW ORDER 

29 001515 POP R1 TRESTORE R1 

30 001516 POP R5 RESTORE R5 

31 001517 117403 DEC R3 TRESTORE R3 

3 001520 000000 RETURN 
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MATH SUBROUTINES 


++ 
DOUBLE PRECISION FIXED POINT SUBTRACT ROUTINE 


POINTER TO OPERAND 1 (SUBTRAHEND) 
POINTER TO OPERAND 2 (MINUEND) 


POINTER TO RESULT WHERE (R4) = (R4) = (R3) 


VEWN $0 OO NOUS WN —"O DOONOULSWA— 
sssssssssss 
— ot oS SD I A 
beh ye ye php 42 4) 4) 40 4) ¢ 
SRAVSVRAGRN> 
VN = BOUT 

DDD D2 n - DWT 

@e Ge Ge Ge Ge Ge Ge Ge Ge Ge 


PONONONINONRY) 


save REGISTERS 


STORE LO ORDER RESULT 
RESTORE REGISTERS 


1 001537 


ot od ow oS ow 2 
w 
rs 
oa 


AUF WN SO OONAQULSWN — OOONOULWI 
= 

MVM 
o 
_ 


NMNPNINPNINID 2 2 3 Oe 
sssssssssssssss 


000001 


000733 
000001 
000733 


000734 


DMUL : 


10$: 


20$: 


OUTPUT: 
R 

PUSH _— RO, R3 
MOV (R3),RO 
BNE 5$ 
MOV RO, (R4) 
MOV RO,1(R4) 
BR 208 
MOV (R4) ,MULPC 
MOV 1(R4) ,MULPC+1 
MOV #MULPCR3 
DEC 
BEQ 208 
CALL DADD 
BR 10$ 
POP R3,RO 
RETURN 
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MATH SUBROUTINES 


4 = POINTER TO RESULT WHERE (R4) = 





+4 
DOUBLE PRECISION FIXED POINT MULTIPLY ROUTINE 
INPUTS: 


3 = POINTER TO MULTIPLIER (SINGLE PRECI 
R4 = POINTER TO MULTIPLICANT (DOUBLE PRE 


SION) 
CISION 


(R4) * (R3) 


; SAVE RO & R3 
; GET MULTIPLIER 


MULTIPLIER NOT 


; LOAD LO ORDER RESULT 


ay ORDER RESULT 

COPY MULTIPLICANT FOR DADD 
ADJUST MULTIPLIER FOR *1 
MULTIPLIER = 0, 

PERFORM ITERATIVE ADDS 


RESTORE RO & R3 


ee 


SEQ 225) 
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MATH SUBROUTINES 


1 001565 DDIV: * 
$ ; DOUBLE PRECISION FIXED POINT DIVIDE 

5 : R3 = POINTER TO DIVISOR (SINGLE PRECISION) 

4, : HIGH ORDER WORD MUST R 

f ; R4 = POINTER TO DIVIDENT (DOUBLE PRECISION) 

9 3; OUTPUT: 

10 : R3 = POINTER TO REMAINDER 

i ; R&4 = POINTER TO QUOTIENT 
13 3 NOTE = THE CASES WHERE EITHER THE DIVISOR OR DIVIDENT ARE ZERO. 
14 F ARE NOT CONSIDERED IN THIS ROUTINE. 

16 
17 001565 PUSH _—RO, R1,R2,R5 : SAVE REGISTERS 

18 001571 114007 CLR RO + CLP LO ORDER QUOTIENT REG 
19 001572 114001 CLR 1 : CLR HI ORDER QUOTIENT REG 
20 001573 104132 MOV (R3) ,R2 : GET DIVISOR 
21 001574 104645 000001 10$: MOV (ROS RS : GET HI ORDER DIVIDENT 

22 001576 051603 BNE 20$ : DIVISOR NOT = 0 
23 001577 104145 MOV (R4) RS : GET LO ORDER DIVIDENT 

24 001600 106052 15$: CMP RS,Re : IS DIVIDENT < DIVISOR ? 
25 001601 041603 BCC 208 ; NO, CONTINUE 

26 001602 001611 BR 0$ : YES, STOP 

37 001603 021521 20$: CALL —DSUB : SYNTHESIZE DIVIDE 

8 001604 105207 000001 ADD #1,R0 t INCR LO ORDER QUOTIENT 
29 001606 041574 BCC 10$ : DID NOT OVERFLOW 

30 001607 115401 INC R1 : ADJUST HI ORDER QUOTIENT 
31 001610 001574 BR 10$ 

32 001611 104145 30$: MOV (R4) RS : GET REMAINDER 

33 001612 100147 MOV RO, (R4) + LOAD LO ORDER QUOTIENT 
34 001613 100641 000001 MOV R1.1(R4) + LOAD HI ORDER QUOTIENT 
35 001615 100135 MOV RS. (R3) + LOAD REMAINDER 

36 001616 POP R5.R2,R1,RO + RESTORE REGISTERS 

37 001622 000000 RETURN 








———_-——_——---— 






F 2 
SEQ 226) 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 11 
MATH SUBROUTINES | 
1 3 | 
¢ : DOUBLE COMPARE | 
: 3 INPUT PARAMETERS 
6 : R3 CONTAINS A POINTER TO THE FIRST OPERAND | 
8 : R4 CONATINS A POINTER TO THE SECOND OPERAND 
10 ; OUTPUT PARAMETERS 
le : THE FLAGS ARE SET AS IF A SINGLE PRECISSION “'CMP’’ HAD OCCURED 
14 001623 DCMP: PUSH RO ZSAVE RO FOR USE AS SCRATCH 
15 001624 PUSH = R1 TSAVE R1 FOR USE AS SCRATCH 
16 001625 104141 MOV (R4),R1 [GET LOW ORDER DEST OPERAND 
17 001626 104647 000001 MOV 1(R45,RO [GET HIGH ORDER DEST OPERAND 
18 001630 106637 000001 CMP 1(R3) RO 'DO ACTUAL HIGH ORDER TEST 
19 001632 011646 BEQ DCMP1 :GO DO ADDITIONAL TESTING 
20 001633 041641 BCC DCMP2 “SRC HI, CLEAN UP AND RTN 
21 001634 DCMP4: POP RI ;RESTORE R1 
22 001635 POP RO TRESTORE RO 
23 001636 106204 (00000 CMP #0.R4 ZSET CONDITION CODES = SRC LSS 
24 001640 000000 RETURN SAND RETURN 
25 001641 DCMP2: POP R1 TRESTORE R1 
26 001642 POP RO SRESTORE RO 
37 001645 106204 077777 CMP #077777,R4 [SET CONDITION CODES = DST LSS 
8 00164 0000 RETURN SAND RETURN 
29 001646 106131 DCMP1: CMP (R3),R1 [TEST LOW ORDER 
30 001647 051654 BNE DCMPS ‘BRANCH IF NOT EQUAL 
31 001650 POP R1 TRESTORE R1 
32 001651 POP RO SRESTORE RO 
33 001652 106044 CMP R4,R4 [SET CONDITION CODES = EQUAL 
34 001653 000000 RETURN SAND RETURN 
35 001654 106131 DCMP3: CMP (R3),R1 [COMPARE AGAIN 
36 001655 041641 BCC DCMP? [BRANCH ON SRC HI 
37 001656 001634 BR DCMP4 [BRANCH ON SRC LOW 
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SDI SUBROUTINES 


.SBTTL $D1 SUBROUTINES 
4 ; GET STATUS 

6 ; OUTPUT PARAMETERS 

x : CLEARS DRIVE STATUS AND GETS CHARACTERISTICS 

3 ; IF NOT ALREADY RECEIVED 

11 : 

12 001657 GSTATS: PUSH  R3 :PUSH R3 

13 001660 PUSH = R5 [PUSH R5 

14 001661 104203 000742 STATST: MOV acR. Sst. R3 POINT To get STATUS TABLE 

15 001663 022010 CALL GET STA 

16 001664 104207 001031 MOV ast. Kno [POINT 10. SUBUNIT CHARACTERISTICS 
17 001666 104673 000002 MOV ST.ERB(RO) ,R3 [GET ERROR BYTE 

18 001670 103203 177420 BIC #ST.DF+HIBYTE,R3 [CLEAR HIGH BYTE AND DF BIT 

19 001672 115003 TST RS ANY Y NEED TO ISSUE DRIVE CLEAR ? 
20 001673 011677 BEQ : = SKIP IT 

21 001674 104030 001030 MOV 33° BCLS SSTORE MASK IN DRIVE CLR COMMAND 
22 001676 022234 CALL CLEAR :D0 A DRIVE CLEAR 

23 001677 104205 001032 STSK1: MOV #ST#+1,R5 [POINT TO FIRST WORD oF STATUS 
24 001701 104253 MOV (R5)+.,R3 'GET FIRST WORD OF STATUS 

25 001702 104202 000001 MOV #1 TERROR SUBCODE IN CASE 

26 001704 102203 000040 BIT #ST.OR,R3 iS DRIVE IN DIAGNOSTIC REQUEST MODE 
27 001706 052003 BNE STPNIC YES, WE LOS 

28 001707 115402 INC TERROR SUBCODE 2 

29 001710 102203 000001 BIT #ST.RU,R3 SIS RUN STOP SWITCH OUT 

30 001712 012005 BEQ STPNIC :YES, LOSE AGAIN 

31 001713 104202 000004 MOV #4,R2 + SUBCODE 

32 001715 102203 000002 BIT #ST.PS,R3 SPORT SWITCH OUT ? 

33 001717 012005 BEQ STPNIC “YES = DIE PAINFULLY 

34 001720 104032 é :GET STATUS 

35 001721 110702 SWAB OR SSWITCH WRITE PROTECT TO LOW BYTE 
36 001722 102302 001021 BIT GSR+1,R2 STHIS SUBUNIT WRITE PROTECTED ? 

37 001724 011740 BEQ SRCK SIF NOT CHECK IF SPINNING 

38 001725 104202 000003 MOV #3,R2 SIN CASE IT'S FATAL 

39 001727 102200 000001 001221 BIT #uP FLAG 3BEEN HERE ONCE ? 

40 001732 052005 BNE STPNIC [YUP = GIVE UP 

41 001733 101200 000001 001221 BIS #WP,FLAGI [SET BEEN HERE FLAG 

42 001736 022226 CALL ACCESS STRY TO RESET IT 

43 001737 001661 B STATST SAND SEE IF IT WORKED 

44 001740 102203 000020 SRCK: BIT #ST.SR,R3 [1S PACK SPINNING? 

45 001742 051745 BN STFORM :YES, TEST FOR FORMAT ENABLE 

46 001743 022152 CALL OA [NO, SPIN PACK 

47 001744 001661 JMP STATST ?SEE IF ANYTHING CHANGED 

48 001745 102203 002000 STFORM: BIT #ST.FO,R3 [1S FORMATTING ENABLED? 

49 001747 051752 BNE STDIAG TYES, TEST FOR DIAG ACCESS 

50 001750 0222 CALL ACCESS [NO, SET UP DIAG/FORM ACCESS 

51 001751 001661 JMP STATST [SEE IF ANYTHING C D 

52 001752 102203 001000 STDIAG: BIT #ST.DB,R3 31S DIAG CYL ACCESS ALLOWED 

53 001754 051757 BNE STWLK SYES, CHECK FOR ERRORS 

54 001755 022226 CALL ACCESS [NO, SET UP DIAG/FORM ACCESS 

55 001756 001661 JMP STATST [SEE IF ANYTHING CHANGED 

56 001757 104153 STWLK: MOV (R5) ,R3 [GET SECOND STATUS WORD 

57 001760 102203 000010 BIT #ST.WE,R3 SANY WRITE ENABLE ERRORS 





58 00176 
59 00176 
764 


70 
71 002005 
72 002007 


38S2Ss3S28 
WMO 

MmnMn— 

se 


or 


010000 001220 
000746 
000752 
010000 001220 


000001 


CHAR: 


STSKP: 


STPNIC: 


BEQ 
CALL 
R 


BR 
B17 
BNE 
MOV 
CALL 
MOV 
CALL 
BIS 
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SDI SUBROUTINES 


CHAR 

orceee 

STATST 

+4 tr al oFLAG 

#CR.GCR,R3 
LK 

#CR.GSR,R3 

TALK 

#CHRONE , FLAG 

R5 

R3 


#1,R1 
ERRMNT 


3NO, GET CHARACTERISTICS 
TRY ENABLING LOGICAL WRITE 


zAND CHECK WORLD AGAIN 
:CHARCTERISTICS ALREADY RECEIVED 

;YUP = NEED TO GET AGAIN 
;POINT TO GET ceric ws TABLE 
:GET CHARACTERI 
GET a? CHARACTERISTICS 
GET THEM 

SET CHAR DONE BIT 
RESTORE R5 

STORE R3 

;RETURN TO CALLER 

INDICATE STATUS FAILURE 
SEND ERROR MSG AND QUIT 


? 


SEQ 228) 


ee | 


nn 
ne SEQ 229 
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SOI SUBROUTINES 


1 3 
é : TALK ROUTINE | 
$ ; INPUT PARAMETERS 
g ; R2 CONTAINS PORT NUMBER CODE 
3 | 
8 : R3 CONTAINS A POINTER TO A COMMAND/RESPONSE ADDRESS/SIZE TABLE | 
10 : OUTPUT PARAMETERS | 
12 ; 
13 002010 TALK: PUSH  R3 | 
14 002011 PUSH 
15 002012 104663 000001 LOOP1: MOV 1(SP),R3 ¢RESTORE R3 FOR RETRIES 
16 002014 104237 MOV (R3)+,RO [GET COMMAND ADDRESS 
17 002015 104231 MOV (R3)+,R1 3GET COMMAND SIZE 
18 002016 104302 000740 MOV UNIT,R2 MAKE SURE HAVE INTERCONNECT 
19 002020 060004 XFC SEND SEND ger STATUS S COMMAND 
20 002021 115001 TST R1 ; SUCESSFUL 
21 002022 012030 BEQ MSG1 TYES, BRAN tu 
22 002023 115400 000716 INC UN.ERT ‘INCREMENT ERROR COUNT | 
23 002025 104201 000002 MOV #2,R1 TERROR NUMBER IN CASE 
24 002027 002075 BR TCLEAR 7D0 RECOV VERY | 
25 002030 102200 100000 001220 MSGI: BIT #RTY, FLAG ZINA RETR 
26 002033 052036 BNE Loop? YES - BONS 3 CLEAR COUNTER 
7 002034 114000 000716 CLR UN.ERT SPOR RESET 
8 002036 104231 LOOP2: MOV (R3)+,R1 [POINT TO RCV BUFFER 
29 002037 104137 MOV (R3) ,RO ZSET SIZE OF REPLY 
30 002040 104302 000740 MOV UNIT,R2 [MAKE SURE HAVE INTERCONNECT 
31 002042 060005 XFC RCV :RCV REPLY. "0 GET STATUS 
32 002043 115001 TST R1  SUCESSF 
002044 012052 BEQ TALKDN :YES, CHECK STATUS 
34 002045 115400 000715 INC UN. ERR ZINCREMENT ERROR COUNT 
35 002047 104201 000004 MOV #4,R1 TERROR CODE | IN CASE 
36 002051 002075 BR TCLEAR :D0 RECOVERY 
37 002052 106207 000175 TALKDN: CMP #UNSEC,RO iWAS CMD UNSUCESSFUL? 
38 002054 052062 BNE TALKRT S, DONE 
002055 115400 000715 INC UN.ERR INCREMENT ERROR COUNT 
40 002057 104201 000003 MOV #3,R1 SERROR CODE IN CASE 
41 002061 002075 BR TCLEAR NO, TRY AGAIN 
42 002062 102200 100000 001220 TALKRT: BIT #RTY, FLAG [IN A RETRY ? 
43 002065 052070 BNE TALKP ZYUP = SKIP CLEAR | 
44 002066 114000 000715 CLR UN.ERR [CLEAR FOR REST 
45 002070 TALKP: POP R4 SRESTORE R4 
46 002071 POP «RB RESTORE R3 
47 002072 000000 RETURN | 
48 00207 114002 ERRT: (CLR R2 ZCLEAR SUBCODE 
49 002074 02254 CALL = ERRMNT TERROR EXIT | 
50 002075 102200 100000 001220 TCLEAR: BIT #RTY, FLAG [IN A RETRY 
51 002100 052107 BNE TALKIP :YUP = SKIP FLAG SET AND STACK SAVE 
Py 002101 101200 100000 001220 BIS #RTY,FLAG “SET FLAG 
53 002104 104060 001217 MOV SP. STCKSV i SAVE STACK POINTER 
54 002106 002111 BR TALIP1 Sk IP RETRY HANDLING 
55 002107 104306 001217 TALKIP: MOV STCKSV,SP RESTORE STACK "POINTER 
56 002111 106300 001477 000716 TALIP1: CMP RETRY,UN.ERT {DONE RETRIES 
57 002114 07207 BMI ERRT :YUP = CAN IT 





UD 
SDI SUBROUTINES 
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nm 
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RASLSSELEAR 
St 
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Nm 
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MVNA 
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001477 000715 


000740 


000001 
000024 


100000 


001002 


000717 
000762 


000001 
000740 
000717 
001477 
000717 
001251 


000002 
600003 
000740 


000003 


AFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 13-1 


CMP RETRY,UN.ERR 
BM R 


I ERRT 
MOV UNIT, R2 
KFC DINIT 
CALL = STATVL 

TER 
CALL TIMER 
CALL ‘TIMER 


BNE RR 
BIT #RCVROY,R1 
TATTNI 


BNE 

MOV #20.,R1 
CLR R2 

CALL = ERRMNT 
CALL &STATS 
BIC #RTY,FLAG 
BR LooPi 
RECAL ROUTINE 


PUSH R3 

MOV #CR.RCL,RS 
JMP LOADS 

LOAD ROUTINE 


PUSH 
CLR UN.ERI 

MOV #CR.RUN,R3 
PUSH RG 

MOV (R3) RO 

MOV 1(R35,R1 
MOV UNIT,R2 

XFC SEND 

TST R1 

BEQ LOAD2 

INC UN.ERI 

CMP RETRY,UN.ERI 
BMI LOADER 

BR LOADS 

CLR UN.ERI 

MOV LTO, R4 

MOV g(RS) RI 

MOV (R3), 


MOV UNIT,R 
XFC RCV 
TST R1 

BEQ LOAD4 
DEC R4 

BNE LOAD3 
BR LOADER 
POP R4 

POP R3 
RETURN 

MOV #3,R1 
CLR R2 


sOVER THE LIMIT ? 


3GET a 
zINIT T 


HE DRIVE 
TST DRIVER STATUS VALIDITY 
RO = NO GOOD 


IF NOT ZE 
WAIT ANOTHER 
O MAKE 


sAND TRY AGAIN 


sSAVE_R3 
POINT TO RECAL TABLE 
zSEND CMD VIA LOAD ROUTINE 


sSAVE R3 
ZFOR 


3GET 
GET IN 


TERCONNECT 
A ts GET STATUS COMMAND 
: te ° SKIP RETRY 
$ DONE ALL RETIES ? 
YUP 


sFOR “coe 
2 LONG 


GET BUF 
7GET_INTERC 


:YUP - SKIP 


TRESTORE R 
;REST 


ORE RS 
sRETURN TO CALLER 


[CLEAR SUBCODE 


2 SECONDS 
SURE DRIVER HAS ENOUGH TIME 
GET Mgt a S_AGAIN 


RROR 
HIS ete oar SET 





ULLY 
T STATUS AND CLEAR ERRORS 
CLEAR RE 


INIT 
POINT TO LOAD DRIVE TABLE 
TSAVE R4 
;GETCOMMAND ADDRESS 
COMMAND SIZE 


ers 
T VALUE (SECONDS) 
3GET RECEIVE BUF FRE 
FER LENGTH 


ONNECT 
;RECEIVE SDI RESPONSE 
UCCESSFUL ber a 
:DECREMENT COUNTER 
4 TILL DONE 
F NOT — YET - THEN ERROR 
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SDI SUBROUTINES 


S 
™m 
Nm 
~ 
w 


NRVNVNNNMVNMNNN 2 


seeeee 


™m 
se 
SURF 


002272 


S 

MON 
Moron 
VO 


S 


ADAAAAAAQAQQVUMMUIMVVIVVVIUIE BEELER SSW 
at) 
N 

&hm-0oNn -_ 


Recececcesee 
3 


cs ee ee ce me ec ee ee a ce ed ed re ed ee ed ed ed ee ed ee me we wed a ed ed me ed med ee ek ed ed ed ed td od ot od 
WAN 
Saat 


NNO 


022542 


104203 
022010 


==s9-=2e2 

ee eh —y 
~ 
Ww 
—s 
Nm 


104203 


000766 


000772 


000740 
000776 


001252 


000002 
100000 


000240 


000720 


000720 
001477 


177775 


000756 


000720 


Bete te te 


CCESS: 


CLEAR: 


CALL —_ ERRMNT 
ACCESS ROUTINE 
PUSH RB 

MOV = #CR. ACC, R3 
CALL TALK 

POP 

RETURN 

CLEAR ROUTINE 


PUSH = R3 
MOV ss CR. CLR RB 
CALL ‘TALK 

POP 


RETURN 

SEEK ROUTINE 
PUSH = R3 

PUSH RO 

MOV UNIT, R2 
MOV #CR.SEK,R3 
CALL _—«*‘TALK 
MOV STO,R3 
CALL  STATVL 
BNE SEEKS 
BIT #ATTN,RI1 
BNE S 


K 
BIT #RWROY RI 
SEEK6 


R 
BEQ SEEKS 
MOV #160. ,RO 
DEC RO 
BNE SEEK7 
BR SEEK1 
CLR R1 
CLR UN. SEK 
POP RO 
POP R3 
RETURN 
CALL INITPT 
INC 


UN. SEK 
CMP rh aaa 


CALL RECAL 
SEEKO 
MOV #-3,R1 
SEEKS 
UNLOAD ROUTINE 


PUSH R3 
MOV #CR.DIS,R3 


SEQ 231 


:DIE 


SAVE R3 
sPOINT TO ACCESS TABLE 
sSEND ACCESS CMD 


sRESTORE R 
RETURN TO CALLER 


sSAVE R3 
sPOINT TO CLEAR TA3LE 
His CLEAR CMD 


; ORE R3 
sRETURN TO CALLER 


7SAVE R3 

sSAVE RO 

sMAKE SURE HAVE UNIT 
sPOINT TO SEEK TABLE 
7S SEEK COMMAND 
sSHORT TIMEOUT 

;CHECK FOR STATUS VALIDITY 
zIF NOT ZERO - DIE 

ZANY PROBLEMS 

: ~ BRANCH 

sALL DONE 

sDECREMENT COUNTER 

zIF ZERO THEN DEAD 


:1MS DELAY 
‘DECREMENT COUNTER 
‘DELAY LOOP 

STRY AGAIN 

'CLEAR ERROR FLAG 
[FOR RESET 

iVES RESTORE RO 
[RETURN TO CALLER 
SINIT THE DRIVE 

S INCREMENT RETRY COUNTER 
SHAVE WE DONE ALL RETRIES? 
SYES, PANIC 

[PANIC AND CALL GET STATUS 
SRECAL DRIVE 

SAND TRY AGAIN 

:SET ERROR CODE 

SRESTORE REGS AND RETURN 


SAVE R3 
sDISCONNECT WITH 


I cioetspnaampcoehenupeiinian tekiietighan ia sicimciheciaathaneiaieraedihcete tine a adeidhctran i cn ih ant Aa iaiiaa i 


"8 § doe31 


198 
176 
177 
178 002325 
179 002324 
180 002326 
181 002327 
182 002330 
183 
184 
185 
186 002331 
187 002332 
188 002336 
189 002336 
190 002340 
191 002341 
192 002342 
193 002344 
19% 002345 
195 002346 
196 002347 
197 002350 
198 00235 
199 00235 
200 002354 
201 002355 
202 002356 
203 002360 
204 002361 
205 
206 
207 
208 
209 002362 
210 002364 
211 002363 
212 002. 
213 002570 
214 002371 
215 00737 
216 00237 
17 002375 
218 00237 
219 00237 
220 002401 
221 002402 


022010 
000000 


104203 
022010 


=] 


104201 
114002 
022542 


001012 


000001 
000004 
066540 


000001 


000740 
066540 


000001 


000024 


iNITIT: 


INITS: 


ATTN1: 


AOUT: 


INITPT: 


INITP1: 


INITDD: 
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CALL TALK 
POP R3 
RETURN 

ONLINE ROUTINE 
PUSH 


R3 
MOV #CR.ONL ,R3 
CALL TALK 
POP R3 


RETURN 
INITIALIZE ROUTINE 
PUSH R1 
SH R3,R4 
MOV #1,R4 
Vv #4 ,R3 
MOV R4,R2 
XFC DINIT 
MOV #28000. ,RO 
CALL STATVL 
BNE AOUT 
DEC RO 
BEQ AOUT 
BIT #RCVROY,R1 
BEQ ATTNI 
ROL 
DEC R3 
BNE INITS 
POP R4 R35 
POP R1 
RETURN 


INIT GIVEN PORT 
MOV gary ae 


XFC DIN 

MOV #28000. 0 
CALL STAT 

BNE INITDD 

DEC RO 


INITDD 
BIT #RCVRDY,R1 
. INITP1 
a #20.,R1 
CALL ERRMNT 


2SEND UNLOAD CMD 
sRESTORE 
RETURN TO CALLER 


+ SAVE R3 

NE COMMAND 
ZBRING DRIVE ONLINE 
sREST R 
RETURN TO CALLER 


sSAVE R1 

sSAVE_R3 AND R4 
ZSTART WITH PORT 
; OUNTER 


NI 

sTIMER (APPROX 2 SECS) 
ZCHECK STATUS VALIDITY 
31F NOT ZERO = NO GOOD 


COUNT 
TF ZERO THEN DE 
sIS RE 


LJ 


T 
{DECREMENT COUNT 
;IF NO 


3GET cent pees 


;DEA 
sDECREMETN COUTNER 


sDEAD IF COUNT EXPIRED 


;DONE INIT ? 
SNOPE = KEEP TRYING 


TERROR CODE 
NO SUBCODE 
sERROR EXIT 





AD 
CECIVER READY SET ? 
AGAIN 


STORE R1 
sAND RETURN TO CALLER 





= 
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2 
& 
é 
8 002403 104204 001327 
9 002405 105014 
10 002406 104203 003023 
| 11 002410 022510 
{ 12 002411 115007 
13 ooselg 052417 
14 002413 114000 000715 
15 002415 
16 002416 003023 
17 002417 106300 001477 
18 002422 012426 
19 002423 115400 000715 
$0 002425 002410 
22 
23 
24 002426 104012 
$2 002427 107200 000020 
38 
29 002432 104201 000005 
30 0024 022542 


000715 


001221 


OERR: 


-SBTTL OVERLAY PROCESSING ROUTINES 


OVERLAY PROCESSING ROUTINES 
R1 = OFFSET INTO TABLE 


NEXT CALLS OVERLAY FOR NEXT CODE OVERLAY 


yee #OVLTBL ,R4 


DD R 
MOV #START,R3 
CALL OVRLAY 
TST RO 
BNE OERR 
CLR UN.ERR 
POP R1 
BR START 
CMP RETRY,UN.ERR 
BEQ OERR2- 

INC UN. ERR 
BR NEXTS 
DEAD HOST EXIT FOR ALL ROUTINES 


MOV R1,R2 
BIS #DEAD ,FLAG1 


GET POINTER TO OVERLAY TABLE 
: INDEX INTO TABLE 

UDA ADDRESS TO LOAD A 

:CALL ROUTINE 10. DO OVERLAY 
;CHECKSUM 0.K. 

7YES = RETRY IF POSSIBLE 
;CLEAR ERROR COUNT 
zPOP_CURRENT RETURN ADDRESS 
760 TO OVERLAY 

: DONE ALL RETRIES ? 


ZINC ERROR AND 
;TRY AGAIN 


GET ERROR CODE FROM XFC 
: INDICATE HOST GONE 


UNIBUS ERROR EXIT FOR ALL ROUTINES 


MOV 


#5,R1 
CALL ERRMNT 


SET UNIBUS 1/0 ERROR 
ERROR RETURN 


SEQ a 


54 
2456 
2457 


4 
; 
8 
9 
1 
2 
3 
4 
5 
6 
7? 
8 
9 
0 
1 
2 
3 
4 


NONIPONUAINUNUR) @ 


NOw 


42 002507 


REO-Ba= 2 
Senn vir 


SE 


001327 
003023 


NceNESe 
Boy 
= 


ROSAS 
U=NNOW 


US 


: 


000715 
002463 
003023 


™N 
AOKno 
WWW 


10 001154 
04 001327 


003023 


001477 


115400 000715 
000000 


000715 


PALP1: 


PALP2: 


PAGER: 


PALP4: 


PALP3: 
PAERR: 
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PAGE BRINGS IN AN OVERLAY AND CALLS IT 
UPON RETURN OF THE OVERLAY PAGE BRINGS IN 
THE PREVIOUS OVERLAY AND BEGINS EXECUTION 
AT THE POINT THE CALL TO PAGE WAS MADE 


R1 = OVERLAY TO BE BROUGHT IN 


PUSH 
MOV 


R3 
#OVLTBL ,R4 


Ri, 
#START,R3 
OVRLAY 

RO 


UN.ERR 
#PAGER ,R3 
R3,-(SP) 
#START,R3 
R3,-(SP) 


R1 
R1,CUROVL 
#OVLTBL ,R4 


R1, 
#START,R3 
OVRLAY 

RO 


RETRY ,UN.ERR 
OERR2 
UN.ERR 


sPUSH_ FOR LATER RETURN 

POINT TO OVERLAY TABLE 

POINT TO ENTRY FOR NEW + meant 
POINT TO UDA LOAD ADDRESS 

BRING IN NEW OVERLAY 


‘y 0.K. ? 


CALL ERROR HANDLER 
TRY AGAIN 


CLEAR ERROR COUNT 

ADDRESS FOR OVERLAY TO RETURN TO 
:PUSH ON STACK 

STARTING ADDRESS OF, NEW, OVERLAY 
:PUSH ON STACK FOR “CAL 


VERLAY 

3NEXT ADDRESS ON STACK IS RETURN 
;ADDRESS TO PAGE 

;POP_OLD OVERLAY NUMBER 

;MAKE IT CURRENT 

POINT TO OVERLAY TABLE 

POINT TO OLD OVERLAY BLOCK 

POINT TO UDA LOAD ADDRESS 

BRING IT IN 

:EDC O.K. ? 


:YU 
ERROR HANDLER 
AGAIN 


RETURN i? ADDRESS oP AGE CALLED FROM 
ory ALL RETRIES ? 

- oa WITH DEAD HOST UNIBUS ERR 
‘TNC ERROR COUNT 
RETURN AND TRY AGAIN 


SEQ 234) 


' 
SS —_———-—4 





ssesese 


WDONAUSWN OO OBNOULSWN “ODO ONOULWN— 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
3 
2 
30 
3 
3 
3 


wn=— 





NWN ~ 


on 
on 


oo 
omn 
5 


<8 


Ne—N—~ 


BNE 
RETURN 
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OVERLAY ROUTINE 
ISSUES UNIBUS READ TO GET OVERLAY 
R35 => UDA ADDRESS TO LOAD 


MOV HSTLO(R4) RO ;LOW ORDER UNIBUS ADDRESS 
MOV HSTHI(R4).R1 SHI ORDER UNIBUS ADDRESS 
MOV LEN(R4) RO :WORD COUNT TO OVERLAY 
KFC ‘ISSUE UNIBUS READ 
TST R1 SANY UNIBUS PROBLEMS ? 
BNE UERR :YUP = EXIT WITH UNIBUS ERROR 
RETURN [RETURN TO CALLING ROUTINE 
SEND MAINTENANCE READ COMMAND 
: MOV #DMBUF ,RO :POINT TO BUFFER 
MOV #DMBUFL,R1 [LENGTH 
XFC MAINTR S ISSUE COMMAND 
TST R1 [ANY UNIBUS PROBLEMS ? 
BNE UERR [YUP - EXIT WITH UNIBUS ERROR 
RETURN 
RECEIVE MAINTENANCE WRITE DATA 
MOV #OMBUF ,RO :POINT TO BUFFER 
MOV #OMBUFL,R1 TSIZE OF BUFFER 
KFC MAINTW SRECEIVE MAINT WRITE DATA 
TST R1 SANY UNIBUS PR 
UERR [YUP = EXIT WITH UNIBUS ERROR 
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1 ~SBTTL MISCELLANEOUS COMMON ROUTINES 


2 3 

3 3 

4 : ERROR RETURN TO HOST 

§ 3 

8 002542 102200 000010 001221 ERRMNT: BIT WERON, FLAG] :TRIED TO QUIT YET ? 

9 002545 052562 BNE ALLOV SYUP = DISCON FAILED 

10 002546 101200 000010 001221 BIS #ERON, FLAG1 *SET FLAG 

11 002551 104207 001264 MOV #DMBUF ,RO :POINT TO MAINT BUFFER 
12 002553 100171 MOV R17, (RO) SPUT ERROR NUMBER IN MSG 
13 002554 100672 000001 MOV R2.1(RO) :PUT IN ERROR SUBCODE 
14 002556 104201 000063 MOV #G6,R1 TERROR MESSAGE OVERLAY 
15 002560 022435 CALL _—~PAGE ‘BRING IT IN 

16 002561 022315 CALL DISCON :DISCONNECT/SPINDOWN DRIVE 
17 002562 114007 ALLOVR: CLR RO iI ok 

18 002563 102200 000020 001221 BIT #DEAD, FLAG1 SDIE OR JUST QUIT ? 

19 002566 012570 BEQ ALLOVi :JUST QUIT 

20 002567 115407 INC RO ‘MAKE NON ZERO 

21 002570 060021 ALLOV1: XFC DONE [EXIT DM MODE 
35 : ERROR RETRY SEQUENCER 
25 002571 104300 001502 001104 ERRHND: MOV RECTMP,ERECOV+1 :STORE LEVEL IN COMMAND 
26 002574 104203 001006 MOV #CR.ERV,R3 :POIT TO COMMAN 

27 00257 922010 CALL _—siTALK [DO ERROR RECOVERY 

8 00257 0000 RETURN RETURN 
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1 


2623 


TRIDIDIIY ct ed ed et et ot ot oe ot 


mrnoen 
BONAVUSWN $6 OBNAULWN “OC OONOUSWI 


mr 





03 001247 
05 001250 


3 
3 
2 
4 000000 
6 
4 
100000 


Nps 3-23 077777 


1 
102201 000004 
ie 201 000400 


106201 177777 
002660 


COMPUTE EDC 
R2 => BUFFER 


EDC: PUSH R2,R4,R5 
MOV IN i,Rr3 
MOV CNT.R5 
EAGAIN: MOV Rose: RG 
XOR R4,R3- 
ADD #0, RS 
ROL R3 
BCC NOCRY 
INC R3 
NOCRY: DEC R5 
BNE EAGAIN 
POP R5,R4,R2 
RETURN 
: ONE SECOND DELAY ROUTINE 
TIMER: PUSH R3 
MOV ATIMVAL,R3 
TIMLP: MOV R1,R1 
MOV R1.R1 
MOV R1,R1 
MOV R1,R1 
DEC R3 
BNE TIMLP 
POP 3 
RETURN 
: VALIDATE XFC STATUS RESPONSE 
STATVL: PUSH RS 
MOV #777775 
STATRE: XFC STATUS 
DEC R5 
BEQ STATFR 
BIT #VLD,R1 
BEQ STATER 
BIT #PARIT1,R1 
BNE STATRE 
POP RS 
CMP R1,R1 
STATRT: RETURN 
STATFR: POP 


R5 
CMP #177777,R1 
BR STATRT 


2 Sen T™ VALUE (69) 


sDECREMENT COUNTER 
zI1F NOT 0 DO NEXT WORD 


zR3 = EDC 


sSAVE R3 
:LOOP COUNTER (32768) 


2DE 

SDECRMENT COUNTER 
LOOP TILL_DONE 
sRESTORE R3 
;RETUR TO CALLER 


sSAVE RS 

sCOUNTER (1 SECOND) 
[GET DRIVE STATUS 

s INCREMENT COUNTER 
TIF ERO - GOOD 


LOW VALID BIT GOOD ? 
2NO yt CLOCK = STATUS BAD 
sPARITY ERROR ? 
ORE R5 
3SET — CODE EQ ZERO 


TREST ORE R R5 
MAKE SURE NOT EQUAL 
RETURN 


Ges. 
Wenu 


POPIPIPINMOPNPONY PON NPyenononn 
SS 


725 
727 


SsoososessosSeoseses 


roronor 


z8 
So 


ANN NNONE SY 
SCOoo0 OWN 


001424 
000001 
000003 


00000 
00105 


000011 
000006 
000007 
000010 


001113 


001101 


CVTERR: 
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CONVERT BLOCK NUMBER TO PHYSICAL ADDRESS AND SEEK 
R4 => BLOCK NUMBER 


#CONBLK,RO 
1(R4) Ri 


R1,V2+1 (RO) 


(R4)R 
RS VSCRO) 
#SCR,RI 


TRK(RO) ,CURTRK 


GRP(RO), ISEEK+3 
SEEK 


R1 
CVTERR 


#10. oR1 
#CONBLK ,RO 
CYL(RO) ,R2 
ERRMNT 


sPOINT AT CONVERT BLOCK 
3GET HIGH ORDER 


IT 
:GEI 's — 
‘POINT TO “meee: CHARACTERISTICS 
CONVERT IT 


7GET TRACK NUMBER 
;LOW ORDER XYLINDER 
HIGH ORDER CYLINOR 
: NUMBER 
200 SEEK 
sANY ERROR ? 

UP ERROR 


3SEEK_ ERROR 
SCONVCRT BLOCK 
CYLINDER FAILED ON 
ERROR RETURN 


SEQ 238 
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1 


737 
741 


NMMMVMMVMNN 


747 


Sssssssoss 


2755 


BNAUSWN $$ © ODBNAULSWN —“OOONOUSwh 
~m 
“ 


NONQNINPINININNID) A A = ot 


SERS SEM eae 
SSIS SSASIESSRS 


Ot Oo ot ot ot ot 


RRVR 
amr 
&fwo 


Soonw 


S 
S 
S 


001152 
000001 


001153 


PRIMRB: 


COMPUTE PRIMARY RBN FOR GIVEN LBN 


RO => 
R4 => 


CHARACTERISTICS BLOCK 


LBN 
RBN = (QUO(CURBN-STLBN) /LBNTRK) *RBNTRK 


R2 

(R4), TEMP 
MOV 1(R4S,R2 

MOV ATEMP.RG 

SUB ST.LBN,R2 
R2,1(R4) 
LBNTRK(RO) ,R3 
BIC #HIBYTE ,R3 
MO R Y 


DD 
MOV RBNTRK(RO) ,R3 
BIC #HIIBYTE RS 
MOV R3,DDUMMY 

CLR DDUMMY+1 
#DDUMMY ,R3 
DMUL 

(R4) ,REVRBN 
MOV 1cRAS, REVRBN¢1 


RETURN 


sGET LOW ORDER LBN 


OR 
sCLEAR FOR STOR 
sFOR DIVIDE 
GET RBN/ TRACK 
CLEAR GARBAGE 
FOR COMPUTATION 


CLEAR HIGH ORDER 
FOR MULTIPLY 


GET LOW ORDER 
STORE HIGH ORDER 


a 


SEQ 239, 
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1 


3 


S38 


POR) 2 ot 


3 
% 


10607 
07302 
10420 


OBVOARWV=O CONOR 
Ssssossooseess 


SSSSSSSSS 
NONOUSWO 


001040 
000002 
000377 


000721 


177777 


Piles Ge Se Ge Ge 


Eccck: 


105$: 


GDECC: 


COMPUTE ECC SYMBOLS IN ERROR 


MOV #CR,R2 
MOV ERRSYM(R2) ,R3 
BIC yer ee me 
SWAB 
TST 3 
BEQ 105$ 
MOV #ROBLK ,RO 
XFC ECC 
TST R1 
BNE 105$ 
CMP RO,R3 

I GDECC 
MOV #-1,R1 
RETURN 


SEQ 240 


POINT TO CHARACTERISTICS 
GET THRESHOLD 
sCLEAR LOW "ORDER 


RE 

: Ha = NO POINT iN CORRECTING 
POINT TO COMMAND BLO 

PERFORM te? CORRECTION 

3 SUCCESSFU 


iWwITH IN BOUNDS 
2YES CONSIDER goon 
ZELSE eat BAD 


4 
e 





4 

5 003023 
6 

7 

8 

9 

10 

11 

\¢ 003024 
13 003024 
14 003025 
15 003026 
16 003027 
17 

18 

19 003044 
20 003045 
21 003046 
22 003047 
23 

24 
25 0030 


ONO 
sss 
SSS 
~ 


WWW 
oe 


SSVSARANYALSS 
sss ssss 


RES 
Wwr—o 


003344 


030000 
106 
000010 


156 


156 


163 


163 


157 


156 


157 


164 


164 


145 


145 


156 


164 


162 
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DUP DM<=>HOST STARTUP OVERLAY 


DUP DM<=>HOST STARTUP OVERLAY 


STARTS zSKIP LOCAL DATA STORAGE 


DATA STRUCTURES 


.SBTTL 
START: JMP 
; .ENABL 
MSGTBL: 
WORD 
WORD 
10$:  .WORD 
“ASCI2Z 
MSGILN = 
, WORD 
“WORD 
20S: WORD 
“ASCIZ 
MSG2LN = 
‘ WORD 
“WORD 
50$: WORD 
“ASC12Z 
MSGSLN = 
. «WORD 
“WORD 
70$: § .WORD 
“ASC12Z 
MSG7LN = 
‘ WORD 
“WORD 
60$: {WORD 
“ASC12Z 
MSGOLN = 
; . WORD 
; WORD 
40$:  .WORD 
“ASC12Z 
MSG4LN = 
‘ WORD 
: FORMAT 
FMTSTA: .WORD 
“ASC12 
FMSTL = 


LC 

DATCON DATE Cooverston ROUTINE 
MSGILN ;MESSAGE LENGTH 

10000 WOR 

‘Enter date <MM-DD-YYYY> ° 

7108 sMESSAGE LENGTH 
UNITCN ;UNIT NUMBER HANDLER 
Osseln epie cgeoene™ 
‘Enter unit number to format <0>: ° 

-720$ MESSAGE “LENGTH 
EXTFCT sEXISTING FCT ? 

it te MESSAGE LENGTH 


WORD 
Use existing bad block information <y>: * 


DLLFLE ;DOWN-LINE LOAD FILE 
MSG7LN SMESSAGE LENGTH 


"Use Down-Line load <N>: ° 
708 


CONBAD 
MSG6LN 


CONTINUE IF BAD ? 
3MESSAGE LENGTH 


SERCON 7SERIAL NUMBER HANDLER 
MS GALN ;MESSAGE LENGTH 

‘Enter a non-zero serial ‘ mumber: 

-~408 

¢ sEND FLAG 
STARTED INFO MESSAGE 

30000 3;DUP WORD 

"Format begun’ MESSAGE 

o7FMTSTA LENGTH 


INPUT ERROR MESSAGE 





0 WORD 
b> if bad block information is inaccesable <N>: 


SEQ 241 


a eee - - -+y 


SEQ 242 
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58 : 

59 003234 030100 INPERR: .WORD 30100 :DUP WORD 

60 003235 111 156 160 «ASCIZ "Input Error’ ‘MESSAGE 

61 000007 INPEL ‘LENGTH | 

62 “DSABL iC | 

64 3 MISCELLANEOUS DUP STORAGE 

66 003243 000000 DATBUF: .WORD 0 sCONVERT BUFFER FOR DATE | 

67 003244 000000 “WORD 0 TMAKE SURE ALL 2 WORDS 

68 003245 000000 “WORD 0 : 

69 003246 000000 MLEN: .WORD 0 SLENGTH STORAGE 

70 000002 MENTLN = 2 ZCONSTANT ENTRY LENGTH 

71 000001 MSGOFF = 1 [OFFSET OF MESSAGE LENGTH 

72 003247 000051 TBUFF: .REPT 41. SZERO 41 WORDS 

73 ¥ 0 [TERMINAL BUFFER 

7% 7ENDM 

75 000051 TBUFFL = .- TBUFF 

76 000131 v = sASCII ‘y* | 

77 000055 DASH = 055 TASCII "=" 

28 000057 SLAS = 057 SASCI3 */* | 

80 036031 DAYS = 164.431.4365. +<365. #441210, tt af 

81 :DAYS FROM NOV. 17,1858 TO 

82 [JAN 1,1901 

84 ; DATE CONVERSION TABLES | 

86 0033 .WORD 0 : TERMINATOR 

87 003321 12 “WORD 10. 100'S NANOSECONDS PER MICROSECOND 
003322 023420 “WORD 10000. 3MICROSECONDS PER HUNDREDTH SECOND | 

89 003323 000144 “WORD 100. HUNDREDTHS OF SECOND PER SECOND | 

90 003324 7%4 “WORD 60. i SECONDS PER MINUTE 

91 003325 000074 ;WORD 60. [MINUTES PER 

32 003326 090030 “WORD 24. SHOURS PER DAY 

94 ; 

95 : QUARTER DAYS PER MONTH TABLE | 

97 003327 WORD : TERMINATOR FOR MONTH TABLE 

98 003330 000174 TIMTBL: :WORD 31.%4 SQUARTER DAYS IN JANUARY 

99 003331 000161 . WORD 28. 0441 SQUARTER DAYS IN FEBRUARY 

100 003332 000174 “WORD 31.%4 SQUARTER DAYS IN MARCH | 

101 003333 000170 <WORD 30.24 SQUARTER DAYS IN APRIL 

108 003334 000174 “WORD 31. #4 SQUARTER DAYS I 

103 003335 000170 “WORD * 04 SQUARTER DAYS IN JUNE 

104 003336 000174 “WORD x TQUARTER DAYS IN JULY 

105 003337 000174 “WORD 31.4 SQUARTER DAYS I 

106 003340 000170 WORD x TQUARTER DAYS IN SEPTEMBER 

107 003341 000174 “WORD 31. #4 [QUARTER DAYS IN OCT 

108 003342 000170 “WORD 30.4 TQUARTER DAYS IN NOVEMBER 

109 003343 177777 “WORD =1 SPRETEND INFINITE DAYS IN DECEMBER, 

110 ZSINCE NOTHING COMES AFTER IT 








1 
3 003344 
4 003346 
5 003347 
§ 003351 
OO eaee 
8 003355 
9 003356 
10 003360 
11 003361 
\¢ 003362 
13 003364 
14 003366 
15 003367 
16 003371 
17 EEL: 
18 00337 
19 003374 
20 003377 
21 003400 
22 003403 
23 003404 
24 003406 
25 003410 
26 003411 
44 003412 
8 003414 
29 003416 
30 003420 
31 003421 
32 003422 
33 003425 
34 003424 
35 003425 
36 003426 
37 
38 
39 
40 003427 
41 003431 
42 003433 
3 003434 
4 003436 


z 


GS 


GRR 


32 Oe I IO— 
SSSS999 
SL SSSRSNSUS 


: 


Seer ee 


SEER 
S 


SSS9=3>535 


We 
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001216 
003024 
001000 
003246 


003247 
000051 
003374 
000200 


001000 
003234 
000007 


03e47 
000051 


003224 
000010 


000060 


Vets Se te 


START3: MOV #STACK,SP 
ic Sy 


OVL 

#MSGTBL,R2 
(R2)+,R 

BIC #REPEAT,FLAG1 
(R2)*,R1 

MOV R1,MLEN 
R2,RO 

KFC MAINTR 

MOV #TBUFF,RO 

MOV #TBUFFL,R1 
MAINT 


XFC NTW 
MOV #RETAD,R4 
PUSH R4 

PUSH R3 


R 

BIT #QUESON,FLAG1 
BIT #REPEAT,FLAG1 
8 MSGLP4 


MOV #INPERR,RO 
MOV yt 


XFC MAINT 
MSGLP2 
ADD MLEN,R2 


ro #TBUFFL,R1 
or RO, (R3)+ 


EC 
BNE § MSGLP3 
MOV (R2)+,R3 
TST —s_R3 

BNE  - MSGLOP 
CONTINUE ON 


MOV #FATSTA,RO 
MOV #FMSTL,RI 
INTR 


XFC MA 
MOV #G1,R1 
CALL NEXT 





SEQ 243) 


3SET UP STACK 

SET UP_OVERLAY POINTERS 

POINT TO MESSAGE TABLE 

sCONVERSION ROUTINE ADDRESS 

CLEAR REPEAT MESSAGE FLAG 
SSAGE LENGTH 


sSAVE_IT 
POINT TO MESSAGE 
SEND MESSAGE 


sADDRESS OF BUFFER 
LENGTH OF BUFFER 


:GET ANSWER 
RETURN ADDRESS 

TADDRESS OF CONVERSION ROUTINE 
i CALL CONVERSION ROUTINE 


sALL DONE QUE ? 
sYES = SKIP THE REST 
sREPEAT THE QUESTION ? 
SNO = DON'T REPEAT 

3; INPUT ERROR MESSAGE 

; LENGTH 


SEND IT 

AND REPEAT QUESTION 
ZADD MESSAGE LENGTH 
POINT TO BUFFER 
:LENGTH OF BUFFER 


; NUE TILL DONE 
2GET CONVERSION ROUTINE ADDRESS 
zIF 0 THEN ALL FINISHED 

sNOT 0 THEN DO NEXT ENTRY 


sADDRESS OF INFO MESSAGE 
LENGTH OF MESSAGE 

SEND TO HOST 

sNEXT OVERLAY 

sBRING IT IN 
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DUP DM<=->HOST STARTUP OVERLAY 


1 
Pek 5 

4 003437 Heh 344 o000e? 
5 003441 104204 007774 
6 003443 104200 010340 
7 003446 114000 7 

8 003450 104203 000731 
19 003452 021521 

11 003453 104043 

12 003454 104204 001330 
13 003456 021503 
14 003457 105204 000003 
15 003461 117405 
16 003462 053456 
17 003463 00 


000731 


SETOVL: 


Hite Sete 


SLOOP: 


SET UP OVERLAY TABLE 


#OVCNT,RS 
#DUPOVL , R4 
#OVS.G1, DDUMMY 
DDUMMY +4 
#ODUMMY ,R3 
DSUB 

R4,R3 
#OVLTBL*+HSTLO,RG 
#OVLEN,R4 

RS 

SLOOP 


GET COUNT OF OVERLAYS 

;POINT TO OVERLAY ADDRESS (2 WORDS) 
RELATIVE START OF FIRSTOVERLAY 

:C EAR HIGH ORDER 


IGET OFFSET (MUST ADD TO RELATIVE 
iSTART ernie OF EACH OVERLAY) 
ANGE POINTER FOR ADDS 

POINT TO LOW HOST ADD OF FIRST ENTRY 
ADD OFFSET 
;POINT TO LOW HOST ADD. OF NEXT ENTRY 
:DECREMENT COUNTER 

F NON-ZERO THEN CONTINUE 
TELSE DONE 





DM<=>HOST STARTUP OVERLAY 


NM 


SENN 2 |] NNO 


MFWNG NAQUUNG NAG & 


MMU 


w VAAL nab aee 
io 


NMNNNINNIND 3 2 2 2 ot ot os 


pases 


SRR RW 


RRRAAnOAOROO 


TM Rohn) Ae ee 
N 


S SS8888S8SSSSssSSsssssssssssssssssssssssssssssssssssss 
MEWNONOUSWR = 33 e 


DAPI ES &S SS ES 
NOUEWN SO OONOU 


a & 





003243 
004000 


003243 
000003 


003243 


003623 


001302 


001217 


001221 


BATCON: 


DATLP: 


DATLP1: 


DATLP2: 


DATRET: P 
DATRT1: 
DA 


ary = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 25 


DO DATE CONVERSION 


PUSH 
MOV 


TAGN: MOV 


R2 
SP,STCKSV 


#DATBUF ,R2 
AGTELAG*STFLAG, oFLAG1 


RO.R1 

R1 
DONONE 
#DASH,RI 
DONON 
#SLAS,R1 
DONONE 
R1,R3,R2 
DATLP 
RO 
#DATBUF ,RO 
GENCON 
DATAGN 


R3 
#STFLAG,FLAG1 
#DATBUF ,R2 


R 
R5,(R2)+ 
R1 


DATLP1 
#DATBUF ,R2 
R4 


DATLP 
RO 

R1 

R? 
DATVER 
R5 
DATAGN 
#DATRET,R3 
R3 

#6,R4 

RS 

R5 

R4 
DATLP2 
R1 

R2 

RO 

#DATE RO 
VAXTME 


STCKSV,SP 
R2 


sSAVE STRING COUNTER 
7SAVE STACK PTR IN ASE OF ERROR 
;POINT FL DATA BUFF :R 


Ss 
O CONVERT <'ONTH DAY, YEAR) 
<n NTO R1 


ER 
IS IT A - DONE | THIS STRING 
3YES - Done THIS STRING 
31 ITA 


sYES = DONE THIS STRING 
STORE BYTE IN R1 AT LOCATION IN R2 


3 SAVE POINTER TO STRING 
sPOINT TO reg TO CONVERT 
ZCONVERT THE STRING 
i ILLEGAL CHARS = ASK AGAIN 
3GET RESULT 
RESTORE POINTER TO STRING 
E RESULT STACK 


Cc ee 
CRESTORES TIL ut pon 


CONTINUE. T 
TY 


ON 

COUNT OF TRO STACK ENTRIES 

;CLEAR FOR STOR 

;2ERO ENTRY FOR CONVERSION 
OUNTER 


sSTORE Y 

POINT 10 R RESULT BUFFER 

sCALL_ CONVERT TO VAX TIME ROUTINE 
RESTORE MESSAGE POINTER 


sRESTORE STACK PTR = MAY HAVE PUSHED 
SOME RESULTS ONTO STACK 
GET MESSAGE POINTER 


SEQ 246) 
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| 
| 


58 0036 107202 000002 SUB #MENTLN,R2 sPOINT BACK_AT BEGINNING OF QUESTION 
59 0036 101200 001000 001221 BIS roy FLAG1 :SET TO REPEAT = ANSWER MUST BE VALID 
60 0036 003624 BR DATRT1 zRETURN 


; 

4 

( 

8 

9 

10 

12 0036 
13 $3637 
14 003640 
15 003641 
16 003643 
17 003644 
18 003646 
19 003647 
20 00365u 
21 003651 
22 003652 
23 003654 
24 003655 
25 003656 
26 003660 
44 003661 
8 003663 
29 003664 
30 003666 
31 003670 
32 003671 
33 003672 
34 003675 
35 003674 
36 003676 
37 003677 
38 003700 
39 003701 
40 003702 
41 003704 


pe geen, pees oe eee ee 
Riga geen aes 
SSSSLSVVSLNVRRRRKEVS 


000014 
003554 


003327 
000000 


000000 
000000 
000002 


000002 


177777 
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3 VERIFY DATE VALIDITY 
: RO = YEAR 
3 R1 = DAY 
: R2 = MONTH 
3 OUTPUT: 
3 RS - 0 IF VALID 
: -1 IF INVALID 
DATVER: TST R2 
BEQ DATERR 
BMI DATERR 
CMP #12. ,R2 
BMI DATERR 
SUB #1900. ,RO 
BMI DATERR 
TST 


BMI ERR 

MOV #TIMTBL-1,R3 
ADD R2,R3 
MOV (R3) RG 
ADD #0,R4 
ROR R4 
ADD #0,R4 
ROR RG 
ADD #0,R4 
CMP #2.R2 
BNE DATVL1 
DEC R1 

DATVL1: CMP R4,R1 
BMI DATERR 
CMP #2,R2 
BNE DATVL2 
INC R1 
CLR RS 

DATVL2: RETURN 

DATERR: MOV #-1,R5 
BR DATVL2 


T MONTH 
ZERO _ THEN NO GOOD 
NEG THEN NO GOOD 
RANGE ? 
NEG THEN NO 
AS YEAR TO 1900 

F NEG THEN ERROR 


ST DAY 
zIF ZERO THEN ERROR 
IF NEGATIVE THEN ERROR 
sPOINT TO DAYS IN MONTH TABLE 
;POINT TO CURRENT MONTH 
3GET DAYS IN MONTH 
sCLEAR CARRY 
7 IN QUARTER DAYS = DIVIDE BY « TO GET DAYS 
;CLEAR CARRY 


CLEAR CARRY 

:1S IT FEBRUARY ?? 

NO = NOTHING SPECIAL 

MAKE DAY ONE LESSCIN CASE LEAP YEAR) 
z:DAY_IN RANGE ? 

NOPE ERROR 

:DID WE MUCK ey DAY ? 


T 
:1 
:1 
:1 
IF 

BI 

I 


: SIGNAL 

ELSE ALL o-5- 
SIGNAL _ERRO 
zAND RETURN 


et 
SEQ 247 
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UNIT NUMBER HANDLER 


ww 


sSAVE MESSAGE POINTER 
024015 CONVERT TO BINARY 
053714 ILLEGAL CHARS 
104070 000741 MOVE TO UNIT NUMBER 
sRESTORE MESSAGE POINTER 


000000 

2 3GET MESSAGE POINTER 
107202 000002 Ss #MENTLN,R2 sPOINT BACK AT BEGINNING OF QUESTION 
101200 001000 001221 #REPEAT,FLAG1 :SET TO REPEAT = ANSWER MUST BE NON-ZERO 
003713 BR UNITRT ; RETURN 


WN" OOONOULSWN— 
S8Ssssssss 
WWWAWWWAWw 
i > a 

3 tI IO 
NNARWNWONe 


~ 


1 
1 
1 
1 
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1 


4 003723 

5 003724 024015 

6 003725 053736 

? 003726 115007 

8 003727 053745 

9 003730 115001 

10 005731 053745 

11 003732 115002 

\¢ 003733 053745 

13 003734 115003 

14 003735 053745 

15 003736 

16 003737 107202 000002 
17 003741 101200 001000 00122: 
18 003744 003761 

19 003745 104070 001306 
20 003747 104010 0013 
21 003751 104020 001310 
22 003753 104030 001311 
23 003755 

24 003756 101200 000206 001221 
25 003761 000000 


SERCON: 


ScRBD: 


SEROK: 


SERRT: 


SERIAL NUMBER HANDLER 
PUSH R2 
CALL GENCON 
BNE SERBD 
TST 

BNE SEROK 
TST 

BNE SEROK 
TST 

BNE SEROK 
TST 

BNE SEROK 
POP R2 

SUB 


#MENTLN,R2 
BIS #REPEAT,FLAG1 
BR SERRT 
a RO, SERNUM 


MOV R2, M+2 
MOV R3,SER NUM+3 
POP R2 

BIS #QUESON,FLAG1 
RETURN 


SAVE MESSAGE POINTER 
: CONVERT HIGH ORDER 
z1F NE THEN ILLEGAL CHARS = PROMPT AGN 


21S IT ZER 

3NO = ALL BITS CAN'T BE ZERO 
21S IT ZER 

3NO = ALL ay CAN'T BE ZERO 
zI1S IT ZERO 

3NO = ALL ais CAN'T BE ZERO 
z1S IT Pia 

3NO = ALL BITS CAN'T BE ZERO 
3GET MES TER 


SAGE POIN 
:POINT BACK AT BEGINNING OF QUESTION 
set = REPEAT = ANSWER MUST BE NON-ZERO 


3LOW ORDER WORD 
LOW MIDDLE 


DER 
RESTORE MESSAGE POINTER 
sSET QUESTIONS DONE 
RETURN 


— ee _-- - } 


SEQ 250) 
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1 3 
4 3 DOWN LINE LOAD FILE NAME HANDLER 
4 003762 OLLFLE: PUSH R2 3 SAVE MESSAGE POINTER | 
5 003763 024220 CALL F IDANS :GET RESPONSE 
6 003764 115001 TST R1 3 TEST RESPONSE 
7 003765 014000 BEQ DLLNO ZNULL = DEFAULT TO best GUESS | 
8 003766 074000 BMI DLLNO NO = DO BEST GUESS 
9 003767 101200 000400 001220 BIS #OLL FLAG sYES = DO DOWN=LINE LOAD 
10 003772 003776 R LLON T | 
11 003773 101200 000200 001221 BIS #QUESON, FLAG SET END OF QUESTIONS FLAG 
12 003776 DLLDON: POP R2 RESTORE MESSAGE POINTER 
13 003777 000000 DLLDN1: RETURN | 
15 : THIS SECTION SKIPS THE NEXT QUESTION 

1 3 WHICH PERTAINS TO CONTINUING IF FCT IS BAD | 
18 004000 101200 002000 001220 DLLNO: BIS #BSTGS, FLAG 300 BEST GUESS | 
19 004003 POP R2 3GET MESSAGE POINTER 
20 004004 105302 003246 ADD MLEN,R2 TADD CURRENT MESSAGE LENGTH 
21 004006 104621 000001 MOV MSGOFF(R2),R1 [GET EXT MESSAGE LENGTH 
22 004010 105202 000002 ADD #MENTLN,R2 sPAST THE FRONT ENT RIES” 
23 004012 104010 003246 MOV R1,MLEN MAKE THIS MESSAGE THE NEW LENGTH 


| 
24 004014 003777 BR DLLON1 ;RETURN 
| 





UDAF 
DUP 






S 


=> 


=* 
Fo] 


; 

4 

5 004015 
6 pares 
? 00461 
8 goes 
9 00402 
10 004024 
11 004025 
12 004026 
13 004027 
14 004030 
15 004031 
16 004033 
1? 004036 
18 004041 
19 004042 
20 004045 
21 004046 
22 004051 
23 004053 
24 004054 
25 004055 
26 004056 
sf 004057 
8 004060 
29 004061 
30 Ooeoes 
31 00406 
32 004064 
33 004065 
34 004066 
35 004071 
36 004072 
37 004074 
38 004075 
39 0040 
40 0041 
41 004102 
42 004103 
43 004106 
44 004107 
45 poets 
46 00411 
47 004114 
48 004115 
49 004116 
50 004120 
51 004121 
26 004122 
53 004125 


So 

2 tI I IOON 
RORREERON 
Orr 

xSe 
WAWN@NSO> 


So 


seeeee 
BeBe seese 


<s 


23 O 2 OO 2 Ow ot = 
3 


oon 
RSROSS 


SVSLSLSVN= 
oO 
WWIWINW ws 


RIR=R=R 


SoRsss 

=0nN2— 

SMHS 

pey We ey ee 
R=5=8 
ROW 


S fez F 


Ss 
Ww 
OonNonm OoOnNwW ff 


o-o— ~ 
Rese §S 


Se 


000400 


000025 


177777 


001221 


000736 
000736 


000736 
000736 


001221 


001221 
001221 


003246 


A _FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 36 
ST STARTUP OVERLAY 


3 GENERAL CO 
3 RO => STRING 
GENCON: PUSH 4 

CALL FINLEN 

BIS #FLIPON,FLAG1 

MOV RO,R4 

CLR RO 

CLR Ri 

CLR R2 

CLR R3 

TST RS 

BEQ CONDON 
CNLP1: MOV (R4) , TEMP 
CNLP: BIC #HIBYTE, TEMP 

CMP 57, TEM 

BPL CONER1 

CMP #°9, TEMP 

BMI CONER1 

BIC #*C17, TEMP 

ADD TEMP RO 

BCC CERR 

INC 1 

BCC NOCERR 

INC R2 

BCC macene 

INC R 

BCC NOCERR 

BR CONERR 
NOCERR: DEC RS 

BEQ CONDON 

CALL MULT10 

BIT #FLIPON,FLAG1 

BEQ 

MOV (R4)+, TEMP 

PUSH R 

MOV TEMP RO 

SWAB 

MOV RO, TEMP 

POP 

BIC #FLIPON,FLAG1 

BR NLP 
CONLOW: BIS #FLIPON,FLAG1 

BR CNLP1 
CONDON: POP R4 

C R1,R1 
CONDO1: RETURN 
CONERR: MOV #21.,R1 

CALL ERRMNT 
CONER1: POP R4 

CMP #177777, MLEN 

BR CONDO1 


—— FLOW VALVE 


R4 
ENGTH OF STRING 
NDICATOR 


sRESULT 
;RESULT 
31S STR 
sYUP - E 

3GET D OF STRING 
;CLEAR HIGH BYTE 

sLESS THAN O (60 OCTAL) ? 


sYES = 

GREATER THAN 9 ? 

zYES = ERROR 

SUB ASCII 60 FROM CHARACTER 
sADD TO RESULT REGISTER 

31F NO CARRY THEN CONTINUE 
sELSE INC NEXT REGISTER 

z1F CARRY THid CONTINUE 
sELSE es NEXT REGISTER 


INC NEXT REGISTER 

NO CARRY = CONT 

sERROR IF CARRY WAS SET 
sDECREMENT COUNTER 


sMULTIPLY BY TEN 

sWHICH BYTE ARE WE ON ? 
sDONE ALL OF THIS WORD 
3GET WORD AGAIN 

sSAVE RO 

3GET FOR SWAB 

;MAKE HIGH BYTE LOW 
sSTORE BACK 
RESTORE RO 

sCLEAR FLAG 
sPROCESS HIGH BYTE 
sSET FLIP FLAG 

3700 LOW BY 
RESTORE R4 
3SET Z FLAG 


sERROR 21 = RESPONSE ERROR 
sERROR RETURN 


ZRESTORE R4 
sSET NOT se LEN = MESSAGE LENGTH) 


AND RETUR 


SEQ 251 
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MEW —ODOONOUS wh 


ERREEERRES 
SNEREANSSS 


nd 


MULTIPLY BY 2 
RO,R1,R2,R3 = 64-BIT VALUE TO BE MULTIPLIED 


ADD #0,R0 CLEAR CARRY 

ROL RO SHIFT FIRST WORD 

ROL R1 zSHIFT CARRY AND SECOND WORD 

ROL R2 sSHIFT CARRY AND THIRD WORD 

ROL R3 SHIFT CARRY AND FOURTH WORD 

BCC MULON IF NO CARRY THEN DONE 
MULERR ZELSE ERROR 

RETURN 2RETURN 

V #21.,R1 RESPONSE ERROR 


CALL ERRMNT TERROR EXIT 


NUS WA NI 


RS=RS=R 
SUMS MAMNSAMN SNES 


MNMMINNNNNNIND 2 2 2 oo ot Ss 
USI SVRNOURWV SOON NRW MOCONOUAWR— 


io AAMAS BEE 
SHIN IMILORALS 


SERRERRERRRERREERREERS 


WAIWG 


™ 
& 
wt 


=—00 2240 
ARRREEE 
— 2 IAAOOCOOO 


SFo= 


007324 


000025 





MULT 


10$: 
20S: 


30$: 


40$: 
MULER1: MOV 
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MULTIPLY BY TEN 

RO,R1,R2,R3 = 64-BIT VALUE TO BE MULTIPLIED 
TO MULTIPLY BY TEN : 

ADD (N*8)+(N*2) TO GET (N*10) 


CALL sGET N *® 2 

V RO, IMAGE STORE FIRST WORD 
MOV R1, IMAGE +1 sSTORE SECOND WORD 
MOV R “iss STORE THIRD WORD 
MOV R2, IMAGE+ sSTORE FOURTH WORD 
CALL MULT2 ; #4 
CALL MULT2 ; N* 8 
ADD IMAGE ,RO ADD INN * 2 
BCC 10$ SKIP INC_IF CARRY CLEAR 
INC R1 zPROP CARRY 
ADD IMAGE+1,R1 sADD iNN®* 2 
BCC 20$ SKIP INC IF CARRY CLEAR 
INC R2 PROP CARRY 
ADD IMAGE +2 ,,R2 sADD INN * 2 
BCC 30$ SKIP INC_IF CARRY CLEAR 
INC R3 3? CARRY 
ADD IMAGE +3,R3 sADD INN * 2 
BCC 40$ SKIP INC IF CARRY CLEAR 
BR MULER1 sERROR 
RE TURN zALL_DONE 

#21. ,R1 sRESPONSE ERROR 

CALL ERRMNT sERROR EXIT 
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=Oss-—6s2- 
—~— —— = 
am NIA 


WMFw 
Seueveus~s 


oo-ono-ow 


MO DONAULSWN “OO OONOUSWN = 


Erereeeeeeees 


are eer er yer yer very ooo 


NNN 


FIND THE LENGTH OF A STRING 
RO => STRING 


OUTPUT: 
RS = COUNT 
: PUSH RO :SAVE RO 
CLR RS : CLEAR COUNTER 
: MOV (RO) ,R1 T WORD 
BIC #HIBYTE. RI ICLEAR HIGH BYTE 
BEQ F INDON sIF ZERO THEN DONE 
INC RS ‘INCREMENT COUNT 
MOV (RO)+,R1 ‘GET WORD FOR HIGH BYTE 
BIC #LOBYTE, R1 TCLEAR LOW BYTE 
BEQ FIND ‘IF ZERO THE DONE 
INC RS sINCREMENT COUNT 
BR FINLN1 SREPEAT WITH NEXT WORD 
: POP RO SRESTGRE RO 
RETURN 
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a8 


Whee Se Ge Ge Be Ge Ge Se Ge Se Se 


NONIR) s* 
Nes DONAULSWN $—O OONOUS WR 
MOMIPMOPIPOToNoNoPoNoru 

ow Ooo os = 


WWIWWIWINononononeng 
GRASS NMENM—O 


-Oo— 
-—O— 
now 

NLOoOsk 

Wooo 

Wo 


DETERMINE IF VALUE IS *Y°,NULL, OR NOT Y 


INPUT: 
RO => STRING 
OUTPUT: 
Rl =11F ‘y* 
0 IF NULL 
-1 IF NOT Y 
CLR R1 ZCLEAR OUTPUT 
MOV (RO) ,R2 ‘GET WORD 
BIC #HIBYTE,R2 :CLEAR HIGH STUFF 
BEQ F IDNUL :1F ZERO THEN IT'S NULL 
BIC #BITS,R2 :MAKE IT UPPER CASE 
CMP #Y,R2 s1S IT "y* ? 
BNE NOTY ‘NOP 
INC R1 [MAKE IT 1 
RETURN 3 N 
C R1 [MAKE IT NEGATIVE 
F IDNUL ZAND EXIT 





UDAFM = UDA F 
DUP 


SEQ 256 


TER = 23-AUG-82 14:02:32 PAGE 35 


Sete te Ses (lies Ge Oe Oe te 


FWD —OVDONAUVUSWND 2OVDOVNOUS WR 
foroforony 
UMass 
ALSMmooOu 


mr 


NONMININIR et tO oS es 
SS 
N 


he TRET: POP 
EXTRT1: RETURN 


USE EXISTING FCT ? 
RO => STRING 


: PUSH R2 oat ote a POINTER 
CALL FIDANS rif S THE ANSWER 

TST R1 T THE RESPONSE 
BMI EXTRET iN - EX 

BIS #FCTAVL, FLAG sYES = SET THE FLAG 


THIS SECTION SKIPS THE NEXT QUESTION 
WHICH PERTAINS TO DOWN-LINE LOADING 


POP R2 GET MESSAGE POINTER 

ADD MLEN,R2 ADD CURRENT MESSAGE LENGTH 

MOV MSGOF F (R2) ,R1 sGET NEXT MESSAGE 

ADD #MENTLN,R2 sPAST THE FRONT ENTRIES 

MOV R1,MLEN MAKE THIS MESSAGE THE NEW LENGTH 
BR EXTRT1 RETURN 


sRESTORE MESSAGE POINTER 


ee 7 -4 


SEQ 257 
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| 
| 
| 


1 $ 

¢ $ CONTINUE IF BAD ?? 

¢ 3 RO => STRING | 

§ 004261 CONBAD: PUSH R2 
0042 024220 CALL FIDANS sWHAT'S THE ANSWER 

8 004263 106201 000001 CMP #1,R1 s1S IT YES ?? 

9 004265 fap ti BNE CONEXT NOPE = EXIT 

10 004266 101200 000020 001220 BIS #GOBAD , FLAG sYUP = SET THE FLAG 

11 004271 00427 BR CON1EX sRET 

12 004272 101200 000200 001221 CONEXT: BIS #QUESON,FLAG1 3SET FLAG ALL DONE QUESTIONS 

13 004275 CON1IEX: POP R2 

14 004276 000000 RETURN 





2 

& 

é 004277 
$ 002304 
8 004302 
9 004303 
10 004304 
11 004305 
12 004306 
13 004310 
14 004312 
15 004315 
16 004317 
17 004320 
18 004322 
19 004324 
20 004325 
21 004326 
$$ 004330 
24 004332 
25 004335 
26 004334 
27 oh $34 
28 0043 
29 004337 
30 004340 
31 004341 
32 004342 
33 004344 
34 004345 
35 004346 
36 0042°.7 
37 004350 
38 004351 
39 
40 

41 
42 004352 
43 00435. 
44 004355 
45 004357 
46 004360 
47 004362 
48 004363 
49 004364 
50 004366 
51 004370 
52 004371 
53 004372 
54 

55 

56 004374 
57 004375 


SaRkaFG RR VER RRERVRIFRK 
FESSaSokses SS USS SBsssesens 


-Oo-— 
=2esFSsS= 


SWS 
of-o 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 37 
DUP DM<=>HOST STARTUP OVERLAY 


DATE CONVERSION ROUTINE 
RO => QUAD-WORD TO STORE RESULT 


te Ge Se Ge Ge 


170140 AXTME: MOV #<DAYS=1>#4 RG 
MOV (SP)+,R2 
BNE 
DEC RG 
30$: MOV (SP)+,R1 
DEC R2 
000731 MOV R2,DDUMMY 
000732 CLR DDUMMY +1 
tse E 000736 MOV #<365.%441>, TEMP 
000737 CLR TEMP+1 
PUSH RG 
000731 MOV #ODUMMY ,R3 
000736 MOV #TEMP, RG 
CALL  DMUL 
PoP R4 
000736 MOV TEMP,R3 
000737 MOV TEMP+1,R2 
: NOTE: LOW TWO BITS OF R3+R4 ARE 
TST R3 
BPL 40$ 
TST R2 
BPL 40$ 
MOV (SP) ,R5 
INC R 
MOV R5,(SP) 
40$: DEC 1 
003330 ADD #TIMTBL,R1 
50$: ADD R4,R3 
BCC 51$ 
INC R2 
51g: MOV =(R1) ,R4 
BNE 50$ 
DEC R1 
: DO A ASHC #-2,R2 INSTRUCTION 
000000 ADD #0,R3 
ROR R3 
000000 ADD #0,R3 
ROR R 
000000 ADD #0,k3 
ts 
040000 BIS #40000,R3 
000000 ADD #0,R3 
52S: ROR 
100000 BIS #100000,R3 
§3$: ADD (SP)+,R3 
BCC 54$ 


—--—_--—--- -- 4 


SEQ 258 


QUARTER DAYS FROM BEGIN TO 1901 
GET YEARS 


g y 
;BRANCH IF NOT 1900 
ae Ua TO NOT BE A LOOP YEAR 


3 MON 
7YEAR AFTER LEAP YEAR DIVISABLE BY 4 
LTIPLY 


CLEAR HIGH ORDER 
QUARTER DAYS IN A YEAR 
CLEAR HIGH ORDER 
zSAVE DAYS 


:DITTO 
GET YEAR TIMES QUARTER DAYS IN A YEAR 
sRESTORE DAYS 

:LOW GRDER 

HIGH ORDER 

ONES IFF. LEAP YEAR 

sAFTCR 1900 ? 

sYES 

oo 1900 ? 

:GET DAYS 

sADJUST FOR 1 DAY LESS DAY IN 1900 
3PUT BACK 

BIAS MONTH TO ZERO 

INDEX INTO MONTH TABLE 

zADD TO DAY 

2 IF NO CARRY SKIP 

zPROP CARRY 

GET LENGTH OF NEXT PREVIOUS MONTH 


BRANCH UNTIL END OF TABLE 
POINT TO FIRST TIME MULTILPLIER 


g Y 

;ROTATE HIGH ORDER RIGHT 1 
: NO CARRY KI 

37D0 ““SHIFT’’ INTO LOW ORDER 
sCLEAR CARRY 

4 HIGH ORDER RIGHT 1 


IF CARRY THEN SKIP 
:D0 *’SHIFT’’ INTO LOW ORDER 


sADD_IN DAY OF MONTH 
:SKIP INC IF NO CARRY 


[eee 





a oe oe 


SEQ 259 
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38 004376 115402 INC R2 sPROP CARRY 


: INIT QUAD-WORD TO DAYS SiNCE BASE DATE 
104074 §4$: MOV RO,R QUAD WORD POINTER 
100243 MOV R3, thee :COPY LOW ORDER DAYS 
100242 MOV Re. (R4)+ Copy HIGH ORDER DAYS 
114005 CLR R5 ZFOR REST OF QUAD-WORD CLEAR 
100245 MOV RS, (R4)+ sCLEAR 
100145 MOV R5,(R4) 7 CLEAR 

; LOOP TO MERGE TIME OF DAY INTO DAYS SINCE BASE DATE 
104074 60$: MOV RO,R4 ZCOPY QUAD WORD POINTER 
104205 000004 MOV #4,R5 SINNER LOOP COUNT 

; CALCULATE QUAD-WORD <= QUAD-WORD * (R1) + (SP)+ 
104142 70$: MOV (R4),R ZFETCH NEXT WORD OF QUAD-WORD 
10411 MOV (R1),R :GET MULTIPLIER 
104030 000731 MOV R3, DOUMMY :STORC FOR RULTIPLY 
104020 000736 MOV R2, TEMP [FOR MULTIPLY 
114000 000732 CLR DDUMMY +1 iCLEAR HIGH ORDER 
114000 000737 CLR TEMP+1 ‘DITTO 

PUSH RG + SAVE QUAD=WORD POINTER 
104203 000731 MOV #DDUMMY , R3 3FOR MULTIPL 
1042 MOV ATEMP, RG 0 
021537 CALL  DMUL 2DO MULTIPLY 
104243 MOV (R4)+,R3 :GET LOW ORDER RESULT 
104142 MOV (R4) ,R2 3GET HIGH ORDER RESULT 
POP R4 ZRESTORE QUAD-WORD POINTER 
115002 TST R2 1S IT POSITIVE 
034436 BPL 80$ :0. 
105112 ADD (R1),R2 E IT AN UNSIGNED MULTIPLY | 
105163 80$: ADD (SP) -R3 :ADD HIGH ORDER OF gp REVIOUS MUL. 
044441 BCC 81$ KIP INC IF NO CAR 
115402 INC R2 CARRY 
10024 81$: MOV R3,(R4)+ STORE WORD INTO QUAD-WORD 
100162 MOV R2, (SP) [SAVE HIGH ORDER WORD 
117405 DEC R5 [DEC COUNT 
054410 BNE 70$ 3 CONTINUE TILL DONE | 
104415 MOV =(R1),R5 :"?P 
014451 BEQ $9$ 31F ZERO THEN DONE 
104265 MOV (SP)+,R5 
05 BR 60$ 2D0 NEXT SPULTIPLIER 
104265 90$: MOV (SP)+,R5 [DO FINAL POP 
00 RETURN SAND RET HRN 
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1 .SBTTL INITIALIZATION OVERLAY (G1) 
$ ; INITIALIZATION OVERLAY 
5 004453 DMOVLY G1,START 
é 003023 024330 CALL NIT pINITIALIZE DI 
003624 102200 000001 001220 BIT #FCTAVL, FLAG SUSE RESIDENT FCT ? 
8 003027 053033 BNE DOLBN sYES = ONLY DO LBN 
9 003030 104201 000000 MOV #F1,R1 TELSE DO D/XBN FIRST 
10 00305¢ 003035 BR DXBN [SKIP LBN FLAGGING 
11 003033 104201 000003 DOLBN: MOV #F2,R1 [SIGNAL LBN FORMAT 
12 003035 022403 DXBN: CALL NEXT ‘BRING IN NEXT OVERLAY 
14 : 
15 ; COMPUTE DISK CONSTANTS FROM CHARACTERISTICS 
iH | 
19 ; COMPUTE TRACKS/CYLINDER 
21 003036 104207 001053 CONINT: MOV #SCR,RO :POINT TO SUB CHARACTERISTICS 
22 003040 104673 000003 MOV TRKGRP(RO) ,R3 [LOAD TRACKS/GROUP 
23 003042 103203 177400 BIC #HIBYTE,R3 [CLEAR HIGH BYTE 
24 003044 104030 000731 MOV R3,DDUMMY SSTORE IN DUMMY AREA 
25 003046 114000 000732 CLR DDUMMY +1 SCLEAR FOR STORE 
26 003050 104673 000002 MOV GRPCYL (RO) ,R3 [GET GROUPS/CYLINDER 
37 003052 103203 177400 BIC #HIBYTE,R3 [CLEAR HIGH BYTE 
B 003054 104030 000736 MOV R3, TEMP *STORE IN TEMP AREA 
29 003056 114000 000737 CLR TEMP +1 [CLEAR HIGH ORDER 
30 003060 104203 000731 MOV #DDUMMY ,R3 [SETR UP FOR MULT 
31 003062 104204 000736 MOV #TEMP RG :DITT 
32 003064 021537 CALL DMUL [COMPUTE IT 
33 003065 104240 001142 MOV (R4)+, TRKCYL [LOAD FOR STORE 
34 003067 104140 001143 MOV (RG), TRKCYL #1 ;LOAD-FOR STORE 
4 3 COMPUTE LBN'S/CYLINDER © 
38 003071 104673 000011 MOV LBNTRK (RO) ,R3 :GET LBN'S/TRACK 
39 003073 103203 177400 BIC #HIBYTE ,R3 ; [CLEAR HIGH BYTE 
40 003075 104030 000736 MOV R3, TEMP SFOR MULT 
41 003077 114000 000737 CLR TEMP +1 [FOR STORE 
42 003101 104204 000736 MOV ATEMP,R4 [FOR MULTIPLY 
43 003103 104203 4 MOV #TRKCYL,R3 ‘DITTO 
44 003105 021537 CALL ——DMUL [GET LBN'S/CYL 
45 003106 104240 001146 MOV (R4)+,LBNPCY [GET LOW ORDER 
46 003110 104140 001147 MOV (R4) ,LBNPCY+1 [GET HIch ORDER 
48 : COMPUTE RBN'S/CYLINDER 
50 003112 104673 000004 MOV RBNTRK (RO) ,R3 :GET RBN'S/TRACK 
51 003114 103203 177600 BIC #HIIBYTE,RS 'CLEAR OUT GARBAGE 
52 003116 104030 000736 MOV R3, TEMP *STORE FOR MULT 
53 003120 114000 000737 CLR TEMP +1 [FOR STORE 
54 003122 104204 000736 MOV ATEMP,R4 : [FOR MULTIPLY 
55 003124 104203 001142 MOV #TRKCYL,R3 *DITTO 
56 003126 021537 CALL —DMUL [GET RBN'S/CYL 
57 003127 104240 001150 MOV (R4)+,RBNPCY [GET LOW ORDER 





SEQ 261 
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$8 003131 104140 001151 MOV (R4) ,RBNPCY+1 :GET HIGH ORDER 

60 3 

6] ; COMPUTE LBN'S IN LBN AREA 

6 ; 

64 003135 104207 001053 MOV #SCR,RO :POINT TO CHARACTERISTICS 
65 00313 104679 000000 000736 MOV CYLBN(RO), TEMP [GET LBN CYLINDERS 

66 003140 104673 000001 MOV CYLBN¢1(RO) ,R3 :GET HIGH ORDER 

67 003142 103203 17000 BIC #HD.CLR,R SCLEAR STARTING CYLINDER BITS 
68 003144 104030 00073 MOV R3, TEMP+1 ‘STORE IT 

69 003146 104204 000736 MOV ATEMP RG :FOR MULT 

70 003150 104203 001146 MOV #LBNPCY,R3 [POINT TO LON'S/CYLINDER 
71 003352 021537 CALL OD [GET LON'S IN LBN AREA 

ce 003153 104140 001134 MOV (R4) ,LBNLBN [GET LOW ORDER 

73 003155 104640 000001 001135 MOV 1(R45, LBNLBN+1 'GET HIGH ORDER 

7% 003160 104670 900012 000731 MOV LBNHOST (RO) ,DDUMMY [GET LBN'’S IN HOST AREA 
75 00316 104670 000013 000732 MOV LBNHOST+1(RO) ,DDUMMY+1 :GET HIGH ORDER 

76 003166 104203 000731 MOV #ODUMMY ,R3 FO 

77 003170 021521 CALL DSUB [SUBTRACT TO GET LON’S IN RCT 
78 003171 104240 00147 MOV (R4)+, TOTRCT [GET LOW ORDER 

ie, 003173 104140 00147 MOV (R4), TOTRCT#+1 :GET HIGH ORDER 

81 ; COMPUTE RBN'S IN LBN AREA 

83 : 

84 003175 104207 001053 MOV #SCR,RO :POINT TO CHARACTERISTICS 
85 it Eas 1046 0 in 000736 MOV CYLBN(RO), TEMP [GET LON CYLINDERS 

86 003202 104673 000001 MOV CYLBN+1 (RO) ,R3 :GET HIGH ORDER 

87 003204 103203 170000 BIC #HD.CLR,R3 SCLEAR STARTING CYLINDER SITS 
88 003206 104030 000737 MOV R3, TEMP$1 *STORE IT 

89 00321 104204 000736 MOV ATEMP,RG 7FOR MULT 

90 005212 104203 001150 MOV #RBNPCY,R3 [POINT TO RBN'S/CYLINDER 
91 003214 021537 CALL  DMUL :GET LBN’S IN LBN AREA 

92 003215 104240 001136 MOV (R4)+,RBNLBN [GET LOW ORDER 

95 003217 104140 001137 MOV (R4) ,RBNLBN¢1 :GET HIGH ORDER 

99 ; COMPUTE SECTORS/TRACK 

97 003221 104673 000004 MOV RBNTRK (RO) ,R3 ;LOAD RBN'S/TRACK 

98 003223 103203 177600 bIC #HIIBYTER [CLEAR OUT GARBAGE 

99 0032 5 10467 000011 MOV LBNTRK(RO) RG [LOAD LBN'S/TRACK(512) 
100 003227 103204 177400 BIC #HIBYTE,R4 [CLEAR OUT HIGH BYTE 

101 003231 105043 ADD R4, SADD FOR SECT/TRACK 

108 003232 104030 001130 MOV R3,SECTRK [STORE IT 

108 003234 114000 001131 CLR SECTRK+1 [CLEAR FOR STORE 

105 ; COMPUTE SECTORS/CYLINDER 

107 003236 104300 001130 000731 MOV SECTRK ,DDUMMY :LOW ORDER 

108 003241 104300 011 1 000732 MOV SECTRK+1 ,DDUMMY+1 ‘HIGH ORDER 

109 005244 104204 0731 MOV  #DDUMMY,R4 :SET UP FOR MULT 

110 003246 104203 001142 MOV #TRKCYL.R3 ‘DITTO 

111 003250 0215 CALL OMU [COMPUTE IT 

11 003251 104140 001132 MOV (R4) ,SECTCY [LOAD FOR STORE 

113 003253 104640 000001 001133 MOV 1(R45, SECTCY#1 [LOAD FOR STORE 





SEQ 262 
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INITIALIZATION OVERLAY (G1) 
115 ; COMPUTE SECTORS IN XEN AREA (R4 => SECTORS/CYL) 
117 003256 104670 900021 000736 MOV XBNCYL (RO), TEMP ;LOAD NUMBER OF XBN CYLINDERS 
118 005261 114000 000737 CLR TEMP+1 SCLEAR FOR STORE 
119 003263 104203 000736 MOV #TEMP,R3 ?SET UP FOR MULT 
120 003265 021537 CALL MUL :GET XBN SECTORS 
121 003266 104240 001140 MOV (R4)+, XBNSEC ‘LOAD FOR STORE 
122 003270 104140 001141 MOV (R4) ,KBNSEC#1 SLOAD FOR STORE 
124 : COMPUTE LAST CYLINDER NUMBER ON SUBUNIT 
126 003272 104207 001053 MOV #SCR,RO :POINT TO CHARACTERISTICS 
127 003274 104670 000000 001144 MOV CYLBN(RO) ,LBNCYL [GET LOW ORDER LBN CYLINDERS 
128 003277 104670 000000 000736 MOV CYLBN(RO).TE tALSO FOR MATH 
129 003302 104674 000001 MOV CYLBN+1(RO) ,R4 [GET HIGH ORDER 
130 003304 104040 001145 MOV R4,LBNCYL+#1 ‘STORE HI ORDER 
131 003306 104040 000737 MOV R4, TEMP+1 SALSO FOR MATH 
132 003310 104204 000736 MOV ATEMP RG :SET UP FOR ADD 
133 003312 104670 21 000731 MOV XBNCYL(RO) , DDUMMY ‘LOAD XBN CYLINDERS 
134 003315 114000 000732 CLR DDUMMY+1 [CLEAR HIGH ORDER 
135 003317 104203 000731 MOV #DDUMMY , R3 :SET UP FOR ADD 
136 003321 021503 CALL ——dDADD [GET LBN+XBN CYLINDERS 
137 003322 104673 000022 MOV DBNCYL(RO) ,R3 ‘LOAD DBN CYLINDERS 
138 003324 110703 SWAB :GET INTO LO BYTE 
139 003325 103203 177400 BIC #HIBYTE,R3 ZCLEAR GARBAGE 
140 003327 104030 000731 MOV R3, DUMMY [FOR DIVIDE 
141 003331 114000 000732 CLR DDUMMY +1 [CLEAR HIGH ORDER 
142 003333 104203 000731 MOV #ODUMMY ,R3 ?SET UP 
143 003335 021503 CALL ADD [GET LBN+XBN+DBN CYLINDERS 
144 003336 104648 1 MOV 1(R4) ,R2 :GET HIGH ORDER 
145 003340 104673 000001 MOV STCYL(RO) .R3 :GET CYLINDER BITS 
146 003342 103203 007777 BIC #LO,R3 [CLEAR OUT REST OF WORD 
147 003344 101032 BIS R3,R2 :0R IN CYLINDER HIGH BITS 
148 003345 100642 00000 MOV R2.1(R4) SSTORE BA 
149 003347 104203 001463 MOV #ONE ,R3 SDECREMENT TO GET NUM OF LAST CYL 
150 003351 021521 CALL D0 IT 
151 003352 104240 001126 MOV (R4)+,CYLNUM [MAKE IT CURRENT CYLINDER 
13e 003354 104140 001127 MOV (R4) ,CYLNUM+1 [LOAD HI ORDER 
134 ; COMPUTE NON=PAD RCT 
156 003356 104300 001136 736 MOV RBNLBN, TEMP ;GET LOW ORDER LBN’S IN HOST AREA 
157 003361 104300 001137 00073 MOV RBNLBN+1, TEMP+1 :GET HIGH R 
158 003364 104200 000177 000731 MOV . ,DOUMMY sADD 127 FOR DIV FUNCTION 
159 003367 114000 000732 CLR DDUMMY +1 [FOR CLEAR 
160 003371 104204 000736 MOV ATEMP,RG [FOR ADD 
161 003373 104203 000731 MOV #ODUMAY ,R3 :DITTO 
162 003375 021503 CALL DADD SADD 
163 003376 104200 900200 000731 MOV #128. ,ODUMMY [FOR DIVIDE (128 RBN/RCT BLOCK) 
164 003401 114 00073 CLR DDUMMY +1 [FOR STORE 
165 003403 10420 731 MOV #ODUMMY ,R3 :POINT TO 
166 003405 021565 CALL 0D [D0 DIVIDE 
167 005406 104140 00126 MOV (R4) ,RCTLBN [GET LOW ORDER QUOTIENT 
168 003410 105200 000002 001262 ADD #2, RCTLBN ‘FOR CONTROL BLOCKS 
170 : COMPUTE NON=PAD FCT 









ive 003413 
17 Botese 
174 003421 
175 003424 
176 003426 
177 0034 
178 tnt 3 
179 0034 
180 003436 
181 003440 
182 003442 
183 003444 
184 003445 
185 003450 
186 003452 
+ 14 003454 
188 003455 
189 003460 
190 003462 
191 003464 
192 003465 
193 003467 
194 

195 

196 

197 003471 
198 oO Rts 
199 00347 
200 003476 
201 003500 
202 003502 
203 003503 
204 003505 
205 003506 
206 003510 
207 003511 
208 003512 
209 003513 
210 003515 
i 

i 

214 

215 003516 
216 003520 
217 003523 
218 003525 
219 ot ett 
220 0035 
221 003533 
222 003535 
223 003537 
224 003540 


104 


MIWA 


SRLEVEPERS 
SoeeSsoeeSssss 


RURERVE TE 
SSS 


32 Ot I O-> 3 BO OOo 
= 
Ss 


—s 
wa 
uty 


MIMIWN 


MWwrwr 
WOWOW 


SRUNSRORORRORE 
SF 


hh Sd a dd ed ed ed td dd od 


VwWwM 


Wo 
ror 


Nm 
So 
Ww 


BPSESE ree 
SSusss 


WIN 


03 2 32 Oo oe 
&oo 
OWW 


) 


001137 


0007 
0007 
000731 


000731 


000731 


000731 


CVER: 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 38-3 
INITIALIZATION OVERLAY (G1 


MOV RBNLBN, TEMP 
MOV RBNLBN+1. TEMP¢1 
MOV #2, DDUMMY 

CLR DDUMMY +1 

MOV ATEMP,RG 

MOV #DDUMAY , R3 
CALL ly 

MOV #127. ,DDUMMY 
CLR UMMY +1 

MOV ATEMP,RG 

MOV #DDUMAY ,R3 
CALL DD 

MOV #128. ,DDUMMY 
CLR DOUMMY +1 

MOV #ODUMMY ,R3 
CALL IV 

MOV #2, DDUMMY 

CLR DDUMMY +1 

MOV #DDUMMY ,R3 
CALL —DMUL 

MOV (R4) ,FCTNPD 
INC FCTNPD 
INITIALIZE GOOD DATA BLOCK 
MOV #GDBLK,R3 
MOV WRD,RO 

MOV R2, (R3)¢* 

MOV #85. RG 

MOV FWRD,R2 

MOV R2, (R3)¢ 

MOV SWAD ,R2 

MOV R2, (R3)+ 

MOV TWRD,R2 

MOV R2, (R3)+ 

DEC RG 

BNE OVER 

MOV EDC ,R2 

MOV R2, (R3)+ 

SET UP END OF IMAGE PCINTER 
MOV #SECTRE RS 
MOV #3, TEMP 

CLR TEMP+1 

MOV #TEMP RG 

CALL L 

MOV #IMAGE ,ODUMMY 
CLR DDUMMY +1 

MOV #DDUMMY ,R3 
CALL DAD 

MOV (R4) ,E IMAGE 








GET LOW ee ° IN HOST AREA 


:GET HIGH ORDE 
zFOR DIVIDE BY 2 
;DITTO 


3 SETUP 
sCALL DI 
sADD 127 
;FOR CLEA 
ADD 


VIDE 
_ DIV FUNCTION 


sADD 
sFOR DIVIDE (128 RBN/RCT BLOCK) 
OR STORE 


: LT 
CLEAR HIGH WORD 
sFOR DIVIDE 

D0 MULTIPLY 

sNON-FAD FCT BLOCKS 
FOR NON-PAD FCT BLOCKS 


POINT TO BUFFER 
Hy ge WORD 


: i 
2SET COUNTER 
sFIRST WORD OF PATTERN 


[SECOND WORD OF PATTERN 
SSTORE IT 

THIRD WORD OF PATTERN 
SDECREMENT COUNTER 


sREPEAT TILL DONE 
EDC FOR PATTERN 
STORE IT 


3SEC/TRACK 

: MULT 

2FOR STORE 

SET UP FOR MULT 

GET LENGTH OF IMAGE BLOCK 
2FOR ADD 

CLEAR HIGH BYTE 

SET UP FOR ADD 

z:ADD TO GET ADDRESS 

:GET ADDRESS 





2 

3 

4 

5 

6 st Ee 
7 003544 
8 003546 
9 003547 
0 003551 
1 003553 
2 003555 
3 003557 
4 003561 
5 003562 
6 003565 
7 003566 
8 003571 
9 003574 
0 003575 
1 003600 
2 003603 


NOP) ee 


Soono 
WwwN 


NRNMVUWNUNINOONNAT 


RRUGLERERGORS 
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1 


COMPUTE INTERLEAVE FACTOR 


#CR,RO 
REVSEC(RO) ,R3 


#HIBYTE ,R3 
R3, TEMP 
TEMP+1 
ATEMP,R4 
#SECTRK,R3 
CUTOF , TEMP 
TWO 


#THREB, TBLK 


#44 ,,SKPCNT 
ISKIP 

#TWOB, TBLK 
#33,SKPCNT 


sPOINT TO 
sGET REVS/S 


;GET INTO LOW BYTE 


[CLEAR HIG 
“FOR MULT 


: MUL 
CLEAR FOR STORE 


2b0 BI-L 

sELSE DO TRI-LE 
s INIT CHECK PAS 
sSKIP BI-LEAVE SETUP 
;D0 BI-LEAV 


; E 
z INIT CHECK PASS OFFSET 


= 


CHARACTERISTICS BLOCK 
/ SECOND 
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1 3 
é : FILL IN FCT INFO 
4 003603 104207 001040 MOV #CR,RO :POINT TO CHARACTERISTICS BLK 
5 003605 104673 1 MOV FRCPY(RO)R3 :GET F/RCT COPIES 
6 003607 110703 SWAB ORB :GET INTO LOW BYTE 
7 003610 103203 177760 BIC #ECLR,R3 ZCLEAR OUT REST OF GARBAGE 
8 003612 104030 001245 MOV R3,FCTCPY + STORE 
9 003614 104207 001053 MOV as ‘POINT TO SUBUNIT CHARACTERISTICS 
10 003616 104670 000010 001241 MOV FCTS2(RO) ,FCTFMT :GET FCT SIZE IN SECTORS 
11 003621 114000 001242 CLR FCTFMT+1 [CLEAR HIHG ORDER 
le 003623 104670 000014 001243 MOV RCTSZ(RO) ,RCTEMT :GET RCT SIZE 
13 003626 114000 001244 CLR RCTEMT+1 SCLEAR HIHG ORDER 
8 - 
7 : COMPUTE HIGHEST PBN IN LBN AREA 
19 : 
20 003630 104300 001134 000736 MOV LBNLBN, TEMP :GET LOW ORDER 
21 003633 104300 001135 000737 MOV LBNLBN+1, TEMP+1 :GET HIGH ORDER 
22 003636 104204 000736 MOV ATEMP, RG [FOR SUB 
23 003640 104203 001136 MOV #RBNLBN,R3 [POIN] 10 RBN'S IN LBN AREA 
24 00364¢ 021503 CALL DADD [ADD TO GET HIGHEST PBN 
25 003643 104203 001463 MOV #ONE ,R3 :DITT 
26 003645 021521 CALL DSUB :TO GET ACTUAL P&N NUMBER 
37 003646 104648 900001 MOV 1(R4) ,R2 [GET HIGH ORDER 
8 003650 10730 1323 SUB ST.LBN,R2 ‘SUBTRACT TO GET RELATIVE LAST BLOCK 
29 003652 104020 001156 MOV R2,HGHPBN+1 TSTORE IT 
30 003654 104140 001155 MOV (R4) , HGHPBN [GET HIGH ORDER 
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2 
4 
5 
6 
7 
8 
9 
0 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
4 
8 


COMPUTE REVECTOR BUFFER ADDRESS AND MAX REVECTOR COUNT 


MOV #IMLEN, TEMP :GET LENGTH OF FORMAT IMAGE BLOCK 
CLR TEMP+1 SCLEAR FOR STORE 

MOV #TEMP, RG ‘FOR MULT 

MOV #SECTRK,R3 7 SECTORS/TRACK 

CALL  DMUL :GET LENGTH OF FORMAT BUFFER TABLE 
MOV TEMP,R3 :GET LENGTH 

MOV #IMAGE ,R4 [GET IMAGE BUFFER START ADDRESS 
ADD R3,R4 ZGET START ADDRESS OF REVECTOR BUFFER 
MOV R4, ERRBUF SSTORE IT 

MOV R4.ERPNT sINIT POINTER 

MOV #BMAX, TEMP :GET MAX BUFFER ADDRESS 

CLR TEMP+{ 7FOR CLE 

MOV R46, DDUMMY ZSTORE BEGINNING ADDRESS 

CLR DDUMMY+1 ZCLEAR HIGH WORD 

MOV ATEMP,RG :POINT TO END ADDRESS 

MOV #DDUMMY ,R3 [POINT TO BEGINNING ADDRESS 

CALL DSUB :SUBTRACT TO GET LENGTH 

MOV TEMP RG :GET LENGTH 

ROR RG :DIVIDE BY 2 (LENGTH OF 1 ENTRY) 
MOV RG, EMAX SSTORE AS MAX NUMBER 


STORE RETRY AND RECOVERY LEVELS 


MOV #CR,RO POINT TO CHARACTERISTICS 

MOV ERCV(RO) ,R3 2GET RECOVERY LEVELS 

BIC #HIBYTE RS CLEAR HIGH ORDER 

MOV R3,RECOV sSTORE IT 

MOV R3,RECTMP : INIT COUNTER 

MOV RTRY(RO) ,R3 GET RETRY NUMBER 

ao a :SHIFT BY FOUR TO GET INTO LOW ORDER NIBBLE 
ROR R3 

ROR R3 

BIC #HI2BYTE ,R3 CLEAR HIGH ORDER JUNK 

INC R3 sONE MORE BECAUSE OF WRONG INC 
MOV R3,RETRY sSTORE IT 

CLR TMPTRY sFOR STORE 


SET UP LONG TIMEOUT 


MOV #CR,RO zPOINT TO COMMON CHARACTERISTICS 
MOV LONGTO(RO) R3 [GET LONG TIMEOUT IN LOG2 
It SFCLR_R3 [CLEAR ALL BUT TIMEOU 

BNE TIALof [IF NOT ZERO THEN CONTINUE 
INC R ‘MAKE IT AT LEAST 1 

MOV #1,R1 SINIT C 

ADD #0.R1 [CLEAR CARRY 

ROL R1 sSHIFT 

DEC R3 SDECREMENT SHIFT COUNT 

BNE TIMLOP [CONTINUE TILL DONE 

MOV RO, TEMP FOR DIVI 


DE 
CLR TEMP+1 :CLEAR HIGH WORD 








58 003776 104200 
59 004001 114000 
60 004003 Hog 33 
61 004005 104 4: 
6¢ 004007 02156 
63 004010 104140 
4 004012 115400 
66 
67 
68 
69 
70 004014 104207 
004016 104673 
72 004020 103203 
3 004022 117403 
74 004023 104201 
004025 105201 
76 004027 110201 
004030 117403 
78 004031 054027 
0040 104203 
80 0040 110201 
81 004035 117403 
82 004036 054034 
83 0040357 104010 
84 
85 
86 
87 
88 
89 





ee esd ed a ed ed dd 


(G1) 


TILOP: 


TILOP1: 
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4a we a 


#TEMP RG 
#DDUMAY ,R3 
DOI 


y 
(R+),LTO 
LTO 


SET UP SHORT TIMEOUT 


MOV 






#CR,RO 
SHORTO(RO) ,R3 
+ ea oR3 
#1,R1 

#0, R1 


RS 
TILOP 
#10. ,R3 
R1 


R3 
TILOP1 
R1,ST0 


UP HEADER AND DATA PREAMBLE 


#SCR,RO 
DATACRO) Fh ss 
ape gl 


(ROSOR 


aS 
rb ll F x3 
Bolt 


zFOR a tien BY 10 
ich EAR _H 


HIGH WORD 
DIVIDE BY 10 (UDA RECEIVE TIMEOUT) 
370 Ue LUE TO USE AS LTO 


I 
STORE IT FOR US LATER 
sMAKE SURE AT LEAST 1 


sPOINT TO COMM CHAR 
3GET SHORT TIMEOUT WORD 


WORD 
FOR LOG CALCULATION 
NIT wy - 


SCLEAR CAR 
;ROTATE CRULT a 2 
;DECREMENT COUNTE 


L DONE 
SHIFT COUNT FOR MILSEC CONVERSION 
3GET A tg IN MILSECS 
360 TILL DONE 


2 AGAIN 
STORE IT 
LENGTHS 


on TO CHARACTERISTICS BLK 
DATA PREAMBLE LENGTH 

7CLEAR OUT HIGH BYTE tana 
;HEADER PREAMBLE LENGTH 

GET INTO LOW BYTE 

eCL LEAR OUT HIGH BYTE GARBAGE 


SFOR NO ERROR 


SEQ 267 


_—————— 





1 


¢ 004061 
6 

7? 

8 004063 
9 004065 
10 004067 
11 

12 

13 

14 004071 
15 004073 
16 004075 
17 

18 

19 
20 004077 
21 004101 
22 004102 
23 004103 
24 004104 
25 004105 
$8 004107 
38 
29 

30 004111 
31 004113 
= 004114 
33 004115 
34 poet té 
35 00411 
36 004121 


R 
o 
Ww 
N 


ee eT) 
pape es 
SNSSRS 
>| oS 

o ™N 


z 
o 


essca 
ONSSSS 
NVOoOooo kw 
ba 


001053 


170377 
17037 
001323 


000003 
170377 
001324 
000002 
170377 
001325 
000003 


170377 
001326 
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SET UP STARTING ADDRESS BITS 


MOV 









#SCR,R3 


STLBNC(R3) ,RO 
#STCLR,RO 
RO,ST.LBN 


STRBN(R3) ,RO 
#STCLR,RO 


RO,ST.RBN 


STXBN(R3) ,RO 
RO 


RO 
RO 


RO 
#STCLR,RO 
RO,ST.XBN 


STDOBN(R3) ,RO 
RO 


RO 
RO 


RO 
#STCLR,RO 
RO,ST.DBN 


sPOINT TO SUBUNIT CHAR BLOCK 


3GET RBN WORD 
CLEAR THE REST 
;STORE IT 

GET THE WORD 


HE RIGHT NIBBLE 
E REST 


GET THE WORD 


HE RIGHT NIBBLE 
E REST 


a ne oe a = _ - —— -_- 


SEQ 269 
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: CLEAR ECC THRESHOLD 


& Oot iss ieee 001040 MOV #CR,R3 POINT TO CHARACTERISTICS 
5 004125 1046 a git MOV ERRSVACR3) , R2 GET THE WORD 

6 004127 103202 177400 BIC #HIBYTE ,R2_ CLEAR THE THRESHOLD 

? 004131 100632 000002 MOV R2,ERRSYM(R3) STORE IT BACK 

8 004133 000000 RETURN 


2 a a = —4 





SEQ 270) 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 44 | 
INITIALIZATION OVERLAY (G1) | 
| 
1 3 
§ : FIND SDI INTERCONNECT FOR DESIRED UNIT | 
5 4 } 
§ 004134 104205 001264 GETUNT: MOV #DMBUF ,RS :POINT TO STARTUP INFO 
004136 114000 001476 CLR COUNT [FOR INTERCONNECT INIT 
8 004140 104200 000001 000740 MOV #1, UNIT SINIT INTERCONNEC 
9 004143 104 000740 GOVER1: MOV UNIT, R2 ZGET INTERCONNECT INTO R2 | 
10 004145 02264 CALL  STATVL ZANY DRIVE THERE 227 
11 004146 054 BNE NOTHER ‘NOPE = TRY NEXT ONE | 
12 004147 104203 000742 GOVER: MOV #CR.GST,R3 :FOR GET STATUS | 
13 004151 104237 MOV (R3)+,RO :GETC ADDRESS 
14 00452 104231 MOV (R3)+_R1 [GET $12 
15 004153 104302 000740 MOV UNIT, R2 [GET INTERCONNECT 
16 004155 060004 KFC SEND ISSUE GET STATUS COMMAND | 
17 004156 115001 TST R1 sSUCCESSFUL ? 
18 004157 014167 BEQ GSKIP1 SYUP = SKIP RETRY | 
19 004160 115400 000717 INC UN.ERI IN | 
20 004162 106300 001477 000717 CMP RETRY,UN.ERI [DONE ALL RETIES ? 
21 004165 074307 BMI THER YUP 
22 004166 004147 BR GOVER 
23 004167 114000 000717 GSKIP1: CLR ERI :FOR ERROR CLEAR 
24 006171 104231 MOV (R3)+,R1 [GET RECEIVE BUFFRE 
25 004172 104137 MOV (R3),R [GET BUFFER LENGTH 
26 004173 060005 XFC RCV SRECEIVE SDI RESPONSE 
37 004174 115001 TST R1 SSUCCESSFUL ? 
B 004175 014205 BEQ GSKIP2 [YUP = SKIP RETRY 
29 004176 115400 001476 INC COUNT SINC ERROR COUNT 
30 004200 106300 001477 001476 CMP RETRY, COUNT [DONE ALL RETRIES ? 
31 004203 074307 BMI THER iY 
32 004204 004147 BR GOVER :TRY AGAIN 
33 004205 114000 001476 GSKIP2: CLR COUNT [FOR COUNT CLEAR 
34 004207 104204 001031 MOV #ST,R4 [POINT TO STATUS BUFFER 
35 004211 104641 MOV UID(R4),R1 7GET UNIT NUMBER FROM STATUS 
36 004213 103201 170000 BIC #HD.CLR.RI [CLEAR GARBAGE 
37 004215 106301 000741 CMP UNNO, R1 t1S IT THE ONE ? 
38 004217 074307 BMI NOTHER [NOT EVEN A POSSIBLE SUBUNIT 
39 004220 054224 BNE GSKIP3 :NO = SEE IF A SUBUNIT 
40 004221 104202 000001 MOV #1, [SET SUBUNIT MASK 
41 004223 004274 BR GDONE SAND EXIT | 
42 004224 104643 000000 GSKIP3: MOV MASK(R4) ,R3 [GET SUBUNIT MASK 
43 004226 103203 007777 BIC #LO,R3 ZCLEAR GARBAG 
44 004230 110703 SWAB Rs [GET INTO LOW BYTE 
45 004231 110603 ROR R3 :TO GET IN LOW NIBBLE 
46 004232 110603 ROR R3 [TO GET IN LOW NIBBLE 
47 004233 110603 ROR R3 :TO GET IN LOW NIBBLE 
48 004234 110603 ROR R3 :TO GET IN LOW NIBBLE 
49 004235 114007 CLR RO [CLEAR COUNTER 
50 094236 102203 000002 BIT #B1T1,R3 TANYTHING THERE ? 
51 004240 014252 BEQ GSKIP [NOPE = ONLY 1 
52 004241 11540 INC RO ZYUP = INCREMENT COUNTER 
53 004242 102203 000004 BIT #B1T2,R3 SANYTHING HERE ? 
54 004244 014252 BEQ GSKIP ; = ONLY 
55 004245 115407 INC RO SINC OUNTER 
56 004246 102203 000010 BIT #B1T3,R3 SANYTHING HERE ? 
57 004250 014252 BEQ GSKIP :NOPE 
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58 004251 
59 00425¢ 
60 00425 

61 004255 
62 004256 
63 004260 
64 004262 
65 004264 
66 004265 
67 004267 
68 004271 
69 004272 
70 004273 
71 004274 
72 004276 
73 004277 
74 004300 
75 004301 
76 004302 
77 004304 
78 004306 
79 004307 
80 004311 
81 004312 
82 004314 
83 004316 
84 004520 
85 0043 

86 004323 
87 004325 
88 004327 


Vw 


+ eee eer ee 
2 st ION OOOO 
So 


Om 202 2 woe 
NRERREERAROS 
WINIO oow 
M—rowtrs onor 


000741 
000741 
000000 
170000 
000001 
000000 


000002 
000007 





GSKIP: 


A 
SFTRPT: 
D 


GDONE : 


NOTHER: V 
A 
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R 
R2,GSR+1 
R2,ACC+1 


UNIT ,R2 
R 


G 
2(R5) .R2 
ERRMNT 





SEQ 271 


iY 
;ADD TO UNIT NUMBER 

3GET RELATIVE OFFSET FROM GIVEN UNIT NUMBER 
s IF ees THEN NOT IN THE RANGE 


3 T 
sDECREMTN COUNTER 
REPEAT SHIFT 


SWAP NIBBLE 

FOR SUBUNIT MASK 

sSTORE MASK IN SUBUNIT CHAR COMMAND 
SET IN FOR CHANGE MODE COMMAND 


zRETURN 

GET CURRENT INTERCONNECT 
NEXT PORT 

7 SAV K 

3FOR RESTORE 

+e ERROR COUNT 

sNOPE = TRY THIS INTERCONNECT 
6 UI eee oy FOR 


| 

3 NON-EXISTANT UNIT | 
ERROR RETURN | 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| 








Ta 


SEQ 272) 
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1 $ | 
5 : INITIALIZATION ROUTINE 
5 004330 104302 000740 INITL: MOV UNIT, R2 ZSELECT UNIT 
6 004 32 022331 CALL _—sINITIT SINIT DRIVE 
7 004333 026134 CALL  GETUNT [GET THE SDI INTERCONNECT 
8 004334 022323 CALL = ONLIN [BRING IT ONLINE 
9 004335 021657 CALL GSTATS :GET STATUS 
10 904336 022146 CALL = RECAL ZRECALIBRATE 
11 004337 0230 CALL CONINT [COMPUTE DISK CONSTANTS 
12 004340 000000 RETURN :AND STOP 


| 
| 
| 
| 
| 
| 
| 


! 
; 
j 


oes FS ea CTS EF Peer 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 46 
DBN/KBN FORMAT OVERLAY (F1) 


; -SBTTL ODBN/XBN FORMAT OVERLAY (F1) 

: $ FORMAT DBN AND XBN AREAS 

S 3 

: 004341 DMOVLY F1,START 

10 003023 104200 000000 001154 MOV #F1,CUROVL OVERLAY #1 

11 003026 101200 000010 001220 BIS #D0BN,FLAG 3SET DBN FORMAT 

12 003031 023070 CALL DXFORM sFORMAT DBN AREA 

13 003032 104303 001312 MOV FCTREV,R3 sSTARTING FCT ENTRY COUNT 
14 003034 107303 001240 SUB FCNT,R ; TOTAL BAD IN DBN AREA 
15 003036 105303 001450 ADD ERRCNT,R3 sGET FINAL TOTAL 

16 003040 104030 001315 MOV R3,DBBAD sSTORE IT FOR STATS 

17 003042 114 001450 CLR ERRCNT sFOR CLEAR 

18 003044 104300 001240 001312 MOV FCNT,FCTREV 3FOR BAD BLOCK COUNT 

19 003047 103200 000010 001220 BIC #0BN,FLAG 7D0 XBN AREA 

20 003052 023070 CALL DXFORM sFORMAT XBN AREA 

21 003053 104303 001312 MOV FCTREV,R3 sSTARTING FCT ENTRY COUNT 
22 003055 107303 001240 SUB FCNT,R ;TOTAL BAD IN XBN AREA 
23 003057 105303 001450 ADD ERRCNT,R3 sGET FINAL TOTAL 

24 003061 104030 001316 MOV R3,XBBAD sSTORE IT FOR STATS 

25 003063 114000 001450 CLR ERRCNT sF CLEAR 

26 003065 104201 00 #F3,R1 sFCT DLL OVERLAY 

24 003067 022403 CALL EXT sBRING IN NEXT OVERLAY 
29 003070 104207 001053 DXFORM: MOV #SCR,RO ;POINT TO CHARACTERISTICS BLOCK 
30 003072 102200 000010 001220 BIT #D0BN,FLAG 3D0 DBN AREA ? 

31 003075 013145 BEQ sNO = DO XBN AREA 

32 003076 104673 000022 MOV DBNCYL (RO) ,R3 sGET NUMBER OF CYLS TO FM 

33 003100 110703 SWAB R 3GET INTO LOW BYTE 

34 003101 103203 177400 BIC #HIBYTE,R3 ;CLEAR HI 

35 003103 104030 001455 MOV R3,CNTCYL 7SET UP COUNTER 

36 003105 102200 002000 001220 BIT #BSTGS,FLAG ;DOING BEST GUESS ??? 

37 003110 053140 BNE SKIP4 sYES - SKIP FCT SET UP 

38 003111 104200 000200 001475 MOV #128. ,PCNT FOR PBN COUNT INIT 

39 003114 114000 001257 CLR FCTCNT sFOR INIT FCT READ 

40 003116 023341 CALL DXFCPG sREAD IT IN 

41 003117 104200 005152 001224 MOV #PBNBUF , BADPBN sADDR OF BAD PBN LIST 

42 003122 104300 005170 001240 MOV PBNBUF +€512,FCNT ;GET COUNT OF USED ENTRIES 

43 003125 104300 005170 001312 MOV PBNBUF +(512,FCTREV sSTORE IT FOR STAT COMPUTATION 
44 003130 013135 BEQ SKIP19 : Z - THEN NO ENTRIES 

45 003131 115400 001257 INC FCTCNT sSTART WITH SECOND FCT BLOCK 

46 003133 023341 dak & DXFCPG sBRING IT IN 

47 003134 003140 GR SKIP4 7SKIP NO ENTRY STUFF 

48 003135 101200 000002 001220 SKkIP19: BIS #FCTEMT, FLAG sSET EMPTY FLAG 

49 003140 104200 140000 001457 SKIP4: MOV #HD.0BN,HD.CUR ;GET DBN HEADER CODE 

50 003143 023355 CALL NUMDBN 37GET DBN OF FIRST BLOCK ON LAST CYLINDER 
51 003144 003154 BR SKIP1 3SKIP XBN SETUP 

52 003145 104200 120000 001457 XBNIT: MOV #HD.XBN,HD.CUR GET XBN HEADER CODE 

53 003150 104670 900021 001455 MOV XBNCYL(RO) ,CNTCYL 7GET CYLINDERS IN XBN AREA 

54 003153 023405 CALL NUMXBN ;GET XBN OF FIRST BLOCK ON LAST XBN CYL 
55 003154 104140 001120 SKIP1: MOV (R4) ,HOLDBN 3LO ORDER FIRST BLOCK NUM TO DO 
56 003156 104240 001114 MOV (R4)+,CURBN zAND MAKE IT CURRENT NUMBER 

57 003160 104140 001121 MOV (R4) ,HOLDBN+1 3HI ORDER FIRST BLOCK NUM TO DO 





B 6 ae: 02% 
SEQ 274 
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CR 
DBN/XBN FORMAT OVER F1) 
58 003162 104140 001115 v (RG), CURBN¢1 yAND MAKE IT CURRENT NUMBER 
59 003164 104207 001053 SLEEK: MOV ‘ ‘POINT TO CHARACTERISTICS BLK 
60 003166 104670 000002 001461 MOV GRPCYL (RO) ,GRPCNT SLOAD GROUPS/CYL 
61 003171 103200 177400 001461 BIC #HIBYTE ,GRPCNT :CLEAR OUT HIGH GARBAGE 
62 003174 104300 001461 001460 MOV GRPCNT, CURGRP ‘GET GROUP R BY 
63 003177 117400 001460 DEC CURGRP :DECREMENTING 
64 003201 104300 001126 001077 SLEEK2: MOV CYLNUM, ISEEK+1 'GET LO ORDER WORD OF CYLINDER NUMBER 
65 003204 104300 001127 001100 MOV CYLNUM+1, ISEEK+2 [LOAD HIGH ORDER WORD OF CYL NUM 
66 003207 104300 001460 001101 MOV CURGRP, ISEEK+3 [LOAD GROUP NUMBE 
67 003218 022242 CALL SEEK [SEEK TO CURRENT CYL NUM 
68 003213 115001 TST R1 SANY ERRORS ? 
69 003214 073334 BMI SYUP = QUIT 
70 003215 104207 001053 MOV WSCR,RO SPOINT TO CHARACTERISTICS BLOCK 
71 003217 104673 000003 MOV TRKGRP(RO) ,R3 SLOAD TRACKS/GROUP 
72 003221 103203 177400 BIC #HIBYTE,R3 *CLEAR OUT HIGH GARBAGE 
73 003223 104030 001462 MOV R3, TRKCNT 'STORE IN COUNTER 
74 003225 117403 DEC R3 STRACK NUMBER IS ONE LESS | 
75 003226 104030 001113 MOV R3, CURTRK [RESET CURRENT TRACK NUMBER 
003230 104201 000047 SKIP3: MOV #G7,R1 [FORMAT SETUP OVERLAY 
77 003232 022435 CALL 200 IT 
78 003233 104304 001322 SKIP7: MOV DPREA,R4 [DATA PREAMBLE LENGTH 
003235 104303 001321 MOV HPREA,R3 ‘HEADER PREAMBLE LENGTH 
80 003237 104307 001320 MOV IMSTAR,RO [POINT TO FORMAT IMAGE START POINT 
81 003241 104301 00171 MOV CURTRK.R1 STRACK TO FORMAT 
82 003243 104302 000740 MOV UNIT,RO 'SDI1 INTERCONNECT 
83 003245 104205 007321 MOV #IMAGE ,RS SRECIRCULATION POINTER 
84 003247 060001 KFC FORMAT [FORMAT THE TRACK 
85 003250 115001 TST R SANY ERRORS ? 
86 003251 013264 BEQ SKIP6 ‘NO = DO CHECK PASS 
87 003252 115400 000717 INC UN.ERI S INCREMENT IT 
88 003254 106300 001477 000717 CMP RETRY,UN.ERI [DONE ALL RETRIES ? 
89 003257 073330 BMI FERR [YUP = ERROR 
90 003260 022362 CALL _—INITPT SREINIT 
91 003261 022234 CALL CLEAR [DRIVE CLEAR 
92 003262 02224 CALL SEEK SRE=SEEK AND GROUP SELECT 
93 003263 00323 BR SKIP7 SRETRY FORMAT 
94 003264 114000 000717 SKIP6: CLR UN.ERI [FOR STORE 
95 003266 023431 CALL  DXCHEC [DO CHECK PASS 
96 003267 117400 001113 - DEC CURTRK SDECREMENT IT 
97 003271 104204 001120 MOV #HOLDBN, R4 [PREPARE FOR BEGINNING BLOCK DECREMENT 
98 003273 104203 001130 MOV #SECTRK.R3 [DECREMENT BY SECTORS/TRACK 
99 003275 021521 CALL -OSUB [D0 DECREMENT 
100 003276 104300 001120 001114 MOV HOLDBN, CURBN [LO ORDER NEW BLOCK NUMBER 
101 003301 104300 001121 001115 MOV HOLDBN*1 , CURBN+1 SHI ORDER NEW BLOCK NUMBER 
108 003304 117400 001462 DEC TRKCNT SDECREMENT IT 
10 003506 053230 BNE SKIP3 [NO = DO NEXT TRACK 
104 003307 117400 001460 DEC CURGRP :DECREMENT GROUP NUMBER 
105 003311 117400 001461 DEC GRPCNT SDECREMENT IT 
106 003313 053201 BNE SLEEK2 [NO = DO NEXT GROUP 
107 003314 117400 001455 DEC CNTCYL SDECREMENT IT 
108 003 1 060022 XFC UPDATE [UPDATE PROGRESS INDICATOR 
109 00331 104204 00112 MOV #CYLNUM, RG [PREPARE FOR CYL NUM DECREMENT 
110 003321 104203 00146 MOV #ONE ,R3 :DECREMENT BY ONE 
111 003323 021521 CALL SUB [D0 SUBTRACT 
112 003324 115000 001455 TST CNTCYL TARE WE DONE ? 
11 003526 053164 BNE SLEEK [DONE ? NO = DO NEXT CYLINDER 
114 003327 000000 RETURN SYES = ALL DONE 
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DBN/XBN FORMAT OVERLAY (F1) 


115 003330 104012 FERR: MOV R1,R2 
116 00 31 104201 000010 MOV #8.,R1 
117 003333 003340 BR DXERR 
118 003334 104302 001126 SKERR: MOV CYLNUM,R2 
119 003336 104201 000012 V #10.,R1 
120 003340 022542 DXERR: CALL ERRMNT 


SEQ 275 


sGET XFC FAILURE CODE 
:SET FORMAT ERROR 


CYLINDER WHICH FAILED ON 
SEEK ERROR 
ERROR RETURN 
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DBN/XBN FORMAT OVERLAY (F1) 


1 3 
¢ [PAGE IN NEW FCT BLOCK 
4 003341 DXFCPG: PUSH RO 
5 003342 104201 000033 MOV #G2,R1 
6 003344 022435 CALL PAG 
7 003345 104200 000200 001476 MOV #128. , COUNT 
8 003350 104200 005152 001224 MOV #PBNBUF , BADPBN 
9 003353 POP R 
10 003354 000000 RETURN 
12 ; 
13 : COMPUTE NUMBER OF FI 
1% : RO => CHARACTERISTIC 
16 : 
17 003355 104673 000022 NUMDBN: MOV DBNCYL (RO) ,R3 
18 003357 110703 SWAB 
19 003360 103203 177400 BIC #HIBYTE ,R3 
20 003362 104030 000736 MOV R3, TEMP 
21 003364 114000 000737 CLR TEMP+1 
22 003366 104204 000736 MOV ATEMP,RG 
23 003370 104203 001132 MOV WSECTCY,R3 
24 003372 021537 CALL  DMUL 
25 003373 104641 000001 MOV 1(R4),R1 
26 003375 105301 001326 ADD ST.DBN,R1 
7 003577 100641 900001 MOV 1,1(R4) 
8 003401 104203 001130 MOV #SECTRK,R3 
29 003403 021521 CALL DSUB 
30 003404 060000 RETURN 
32 3 
33 : OMPUTE NUMBER OF F 
34 : £0 => CHARACTERISTI 
36 ; 
37 003405 104670 000021 000736 NUMXBN: MOV XBNCYL (RO), TEMP 
38 003410 114000 000737 CLR TEMP+1 
39 003412 104204 000736 V ATEMP,RG 
40 003414 104203 001132 MOV #SECTCY,R3 
41 003416 021537 CALL OD 
42 003417 104641 000001 MOV 1(R4),R1 
43 003421 105301 001325 ADD ST.XBN,R1 
44 003423 100641 000001 MOV R1,1(R4) 
45 003425 104203 001130 #SECTRK,R3 
46 003427 021521 CALL OD 
4? 003430 000000 RETURN 
49 ; 
50 3 CHECK PASS 
2 
2¢ 003431 DXCHEC: PUSH 
54 003432 114000 001227 DXCH: CLR 
55 003434 114000 001222 CLR ERFLAG 
56 003436 102200 000600 001220 BIT #MANU+DLL, FLAG 
57 003441 013454 BEQ CSKIP 


sDLL OVERL 
ZEXECUTE OVERLAY 


ZOR POINTER RESET 
a © RO 


RST DBN ON LAST DBN TRACK 
S$ BLOCK 


3GET NUMBER OF CYLINDERS IN DBN AREA 
7GET INTO LOW BYTE 
i CLEAR wt OTHER INFO 

TEMP AREA 


CLEAR "Por STORE 

POINT R4 AT TEMP AREA 

POINT TO NUM OF SECTORS/CYLINDER 
MULTIPLY TO GET SECTORS BEFORE LAST CYL 
7GET HIGH ORDER 

3 ADD a ORDER STARTING DBN 


3 STORE 
;WANT FIRST DN OF LAST TRACK 
;SUB TO GET IT 


IRST XBN ON LAST XBN TRACK 
CS BLOCK 


3GET “wee ee IN XBN AREA 


3 EMP AREA 

3POINT TO SECTORS/CYLINDER 

MULTIPLY TO GET SECTORS IN XBN AREA 
sate HIGH on STARTING XBN 


ORE 
;WANT XBN OF Last TRACK 
;SUB TO GET IT 


ssaNe PTR TO CHARACTERISTICS BLK 
FOR ERROR COUNT RESET 

SCLEAR OY Te FLAG 

FCT AVAILABL 

NO = DO EXTENSIVE READ 


-“ 


SEQ 276) 
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RansS 
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SSERES 
RISSSASSSSEF 


me et BD me ed a a eB = ad ed ts ds 
Wn 
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Wed ad Lag 


RWUNISSSIRARAIS 
Sssssssssssssss 


33 a 
w 
one =O 


BS 


000001 
001453 
00145 

000003 
000024 
001453 
000740 
001130 


00145 
00145 
001454 
ET) 
00145 
001454 


001451 


CSKIP: 


READ1: 


RRERR: 


NOERR: 


HERE : 


R3,RW.DUM(RO) 
#<B1T15:RDBLK>,RO 


#ROCMD, 
R3,RW.STAT(RO) 
READ 


RB. IM(RS),R3 
(R3) RG 


RTYCNT 
#ROLEN,RS 
SECCNT 


N 
CSKIP1 
ERR 

CDONE 
MIMAGE ,R4 
(R4) RS 


woo A 


SET UP FOR STORE 
T UP 


SAVE FOR LATER RESET 
7SKIP EXTENSIVE READ Naa 
EXTENSIVE REGULAR READ 
sEXTENSIVE ERROR READS 
sSAVE_FOR LATER RESET 


:SDI_INTERCONNECT 

3SYNCH WITH Si PULSE 
;LOAD SECTORS/TRACK 

POINT TO COMMAND BUFFER 

:POINT TO READ » COMMAND BLOCK 


3 ZERO 
YES = SKIP CHECKS 
ELSE STORE IT 
GET LOW RODER BLOCK NUMBER 
:STOR E IN BLOCK 
LOAD 7 ORDER yO nate 


E POINTING AT BLOCK 
RESET faite POINTER 


YE OH 

iGET STATUS WORD 

Y ECC ERROR ? 
YUP = MARK AS BAD FOR NOW 
POINT TO COMPARE BLOCK 
:D0 DATA COMPARE 
ANY ERROR IN COMPARE ? 
NOPE = CONTINUE LOOP 


ser a bd a TO IMAGE 


E 
PRLREADY. MARKED BAD ?? 
;YUP = DON'T COUNT AGAIN 
sFLAG AS BAD 


sSTORE BACK 

INCREMENT ERROR COUNT 

INC COUNTER 

POINT TO "EXT READ CMD BLOCK 
;DECREMENT ae ER 

SECTOR 


3NO = DO ee 
;DECREMENT COUNTER 
3NO “enhone ? TRACK READ AND COMPARE 


ZANY 
3NO = ALL DONE CHECK PASS 
POINT TO IMAGE BUFFER 
GET BUFFER POINTER WORD 
31S IT BAD 

3NO = SKIP IT 


ae 
| 


SEQ 277) 





/XBN FORMAT OVERLAY (F1) 
115 003606 104 60000 
116 003610 103203 0077 g 
117 003612 196 001457 
118 003614 0537 
119 003615 104302 000740 
120 003617 06001 
121 tees 104207 000721 
122 003622 104203 000726 
123 003624 100673 000005 
124 op ecee Hes cy 000001 
125 0036 100673 000002 
126 003632 104643 siete 
127 ooReee 100673 00000 
128 0036 dd 004535 
129 003640 10067 1 
130 003642 104203 013400 
131 003644 104301 001113 
132 003646 101013 
133 003647 100673 
134 003651 104207 100721 
135 003653 104203 1 
136 003655 100173 
137 003656 104302 000740 
138 003660 060002 
139 003661 115001 
140 ep aeee 053706 
141 003665 104173 
142 003664 102203 010000 
143 003666 013672 
144 003667 023000 
145 003670 115001 
146 003671 073706 
147 003672 106300 001445 
148 003675 053706 
149 003676 104202 004535 
150 003700 022600 
151 003701 104205 004535 
152 003703 106653 000400 
153 003705 013723 
154 003706 
155 003706 104643 000002 
156 003710 103203 170000 
157 003712 101203 110000 
158 003714 100643 98 
159 003716 115400 00122 
160 003720 115400 001450 
161 parse 003726 
162 003723 117400 001453 
163 003725 053602 
164 pores 104300 001454 
165 003731 117400 001227 
166 003733 105204 
167 003735 115000 001227 
168 003737 053602 
169 003740 115 001222 
170 003742 01377 
171 003743 104304 001322 


004535 


001453 


READ2: 


CSKIP6: 


ER1: 


OK: 


CSKIP3: 
CSKIP7: 


OVER2: 


an UDA_FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 47-2 


FT.HICR4) ,R3 

#L0,R3 

HD. CUR,R3 
SKIP7. 


3 
it RW. BUF (RO) 
CURTRE, °R1 
R1,R 


R3,RW.CMD(RO) 
a<BI TiS ROBLK> RO 
#ROCMD,R3 
R3, (ROS 
UNIT, 
Ri 
in R3, 
#ecct R3 
SKIP pé 
Eee 


FR 1 

DWRD ,RDBUF 
#ROBUF ,R2 
CEDC 

#ROBUF RS 

RW. EDC(RS), R3 
OK 


FT.HIC(R4) R3 

a HD. RS 
HD.BAD.R3 

a3, FT.WI(R4) 
FLAG 


#IMLEN,R4 
ERR 


HERE 
ERFLAG 


CDONE 
DPREA,R4 


3GET “e+ ORDER 
3 CLEAR buy ALL BUT HEADER 
21S IT 00D 


X/D BN*’ 
NOPE = NALREADY REVECTORED IT 
:SDI a ph ig ONNECT 

;WAIT SE 
‘PREPARE FOR READ SECTORS 
POINTER TO DUMMY SDI BLOCK 

T COMMAND BLOCK 


sSTORE IN 

3;LO ORDER R 
sSTORE IN READ C BLOCK 
3 eons F NUM +3 Cc 


: READ CMD BL 

LOAD ADDRESS OF DATA BUFFER 
TORE IN COMMAND BUFFER 

LOAD SDI READ C 


OMMAND 
3GET aoe HEAD NUMBER IN R1 
SET IT IN COMMAND 


: E BACK 
sMAKE SURE POINTING AT BLOCK 
; ONLY REQUEST 


IDER BAD 
:LOAD e¢ ECC ERROR INDICATOR FOR TEST 


NO = CHECK EDC 

sEL SE FIND HOW MANY SYMBOLS IN ERROR 
WITHIN BOUNDS ? 

:NOPE - CONSIDER, A 

FIRST WORD 0.K 

NOPE = BARF 

POINT TO BUFFER 

;COMPUTE EDC = RETURNED IN R3 

:POINT TO BUF FER 


:GET HI _ ORDER BL ote NUM AND HDR CODE 
:C Vt agll i HEAD 
sMARK_AS BAD 
sSTORE BACK IN IMAGE 
ET RE-FORMAT FLAG 


7S 
UP COUNTER OF BAD BLOCKS 
3NO NEED TO RE@READ | ANY MORE THIS SECTOR 
;DECREMENT COUNTER - DONE ? 

NO = onten’ uk SECTOR IN ERROR 

7GET SAVED V ae 

;DECREMENT IT 

sPOINT TO NEXT ERROR ENTRY 

ZALL DONE coe OR SECTORS 

3NO = DO NEXT SECTOR 

;WERE THERE _e SECTORS FOUND 


E = ALL 
{DATA PREAMBLE LENGTH 


a] 
| 


SEQ 278 


ee - . ~-y 


SEQ 279) 
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DBN/XBN FORMAT OVERLAY (F1) | 

17 00374 745 104 3 001321 MOV HPREA,R3 ;HEADER PREAMBLE LENGTH 

17 ie 07 001 ° MOV IMSTAR, RO ‘POINT TO TRACK IMAGE START POINT 

174 00 ref 104301 00111 MOV CURTRK.R1 [CURRENT TRACK NUMBER 

175 003753 104302 000740 MOV UNIT,R2 :$D1 INTERCONNECT 

176 003755 104205 007321 MOV #IMAGE ,RS RECIRCULATION ADDRESS 

177 003757 1 xFC FORMAT sRE- ‘een 

178 003760 115001 TST R1 ‘ANY PROBLEMS ?? 

179 003761 013774 BEQ OVER1 NO NO =REDO- CHECK PASS 

180 003762 115400 000717 INC UN.ERI sINCR EMENT 

181 003764 106300 001477 000717 CMP RETRY,UN.ERI ONE ALL RETRIES ? 

182 003767 073330 BM! FERR vUP = ERROR 

183 003770 022362 CALL _—sINITPT SREINIT 

184 003771 022234 CALL CLEAR DRIVE CLEAR 

185 003772 022242 CALL SEEK “RE-SEEK AND GROUP SELECT 

186 003773 00374 BR OVER2 TRETRY FORMAT 

187 003774 114000 000717 OVER1: CLR UN.ERI sCLEAR Ay RY oy +! 

188 003776 003432 R DXCH TRE-CYCLE CHECK PASS 

189 003777 CDONE: POP RO SRESTORE CHARACTERISTICS PTR 

190 004000 000000 RETURN 
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UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 48 


CONSTRUCT THE READ COMMAND TABLE 


MOV SECTRK, SECCNT 
#CMDBUF ,RO 


MOV U 
MOV IMAGE RS 
MOV SKPCNT.R3 
ADD R3,R 
MOV R5.STARIT 
MORE: MOV 2¢R5) ,R3 
BIC #LO,R 
CMP #HD.XBN,R3 
BEQ FKIP2 
CMP #HD .DBN,R3 
BEQ FKIP2 
CLR R 
MOV R3,RB.CMD(RO) 
ADD #RDLEN, RO 
BR FKIP1 
FKIP2: MOV 1(R5) R3 
MOV R3, (RO) 
MOV 2(R5) ,R3 
MOV R3, (RO) + 
MOV #RUCMD,R3 
BIS CURTRE R3 
MOV R3, (ROS+ 
MOV R5,(RO)+ 
FKIP1: ADD TBLK RS 
CMP EIMAGE RS 
BEQ REDO 
BPL FKP1 
SUB E IMAGE RS 
ADD #IMAGE RS 
BR FKP1 
REDO: MOV #IMAGE RS 
FKP1: CMP STARIT.R5 
BNE FKIP10 
ADD #IMLEN,RS 
MOV RS, STARIT 
FKIP10: DEC SECCNT 
MORE 


E 
RETURN 






2 INIT COUNTER 
; BUF F 


; ER 

POINT TO TRACK IMAGE 

3GET STARTING OFFSET (TUNED) 

POINT TO FIRST ENTRY 

MARK STARTING ADDRESS 

SET UP FOR HSR CODE COMPARE 

s ISOLATE HI 4 BITS(HDR CODE) 

GOOD XBN ? 

2YES = MARK AS GOOD TO CHECK 
DBN ? 


zYES = MARK AS GOOD TO CHECK 
CLEAR FOR STORE 

STORE AS BAD SECTOR FLAG 
POINT PAST BLOCK 

zSKIP GOOD MARK 

:LO ORDER BLOCK NUMBER 
STORE IN READ COMD BLOCK 

3H R BLOCK NUM 


3HI_ORDE AND CODE 
STORE IN READ CMD BLOCK 
LOAD SDI READ COMMAND 


E 
sSET IN CURRENT TRACK NUMBER 
TORE IN BLOC 


: k 

sSAVE_PTR TO IMAGE BLK ENTRY 
sADD TO GET NEXT SECTOR 

sSEE IF 4} LOOP BACK TO TOP 


sNO NEED = JUST CONTINUE 
SUBTRACT TO * LOOP AMOUNT 


A 
zSKIP_ ZERO CONDITION 
31F ZERO SIMPLY MOVE TO FRONT 
zAT ape tt fa ? 


“NO CONTINUE 
SELSE POINT TO NEXT ENTRY 
imAKE IT NEW STARTING ADDRESS 
[NO = DO NEXT SECTOR 








4 

5 

6 

7? 

8 

9 

10 004101 
11 003023 
12 003026 
13 003031 
14 003033 
15 003036 
16 003037 
17 003042 
18 003043 
19 003044 
20 003045 
21 003046 
22 003050 
23 003051 
24 003053 
25 003054 
26 003056 
27 00 

28 00 

29 00306 
30 003064 
31 003071 
32 003073 
33 003074 
34 003076 
35 003100 
36 003101 
37 003103 
38 003105 
39 003106 
40 003107 
41 003111 
42 003112 
43 003114 
44 003116 
45 003121 
46 003123 
47 003125 
48 003127 
49 0031 
50 003133 
51 003134 
26 003137 
53 003140 
54 003143 
55 003145 
56 003147 
57 003150 


RRR 
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001460 


001154 
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001220 
001220 


000731 


000731 
000731 
000736 


DXTRK: 


TKIP1: 
TKIP2: 


SKIPS: 


TKIP8: 


TKIP9: 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 49 
DBN/XBN TRACK FORMAT OVERLAY (G7) 


1 


-SBTTL DBN/XBN TRACK FORMAT OVERLAY (G7) 


SET UP TRACK FORMAT 


DMOVLY 
V 





G7, START 

#G7, CUROVL 
SECTRK, SECCNT 
#IMAGE RS 


#0BN, FLAG 
KIPi 


#SCR,R3 

Bay etme oe 
#HIBYTE ,R2 
eens 


DMU 

SECTRK ,ODUMMY 

$e ¢ Tak BOUNTY 

#IMLEN, TEMP 
MP+1 

rae 

(R4) ,R3 


Sam AMA 


#MANUSOLL, FLAG 
KIP2 


3GET eet t INDICATOR 


sSEE IF FCT AVAIL 
2NO = P PBN COMPUTATION 
2D0 DBN AREA ?? 


3NO - DO XBN AREA 

:COMPUTE PBN FOR STARTING DBN 
2SKIP XBN COMPUTATION 
;COMPUTE PBN FOR STARTING XBN 
sPOINT R3 AT GOOD DATA BLOCK 
sAND STORE PTR IN IMAGE BLOCK 
GET LOW ORDER BLOCK NUMBER 
;AND STORE IN 


; oc 

CLEAR HEADER CODE 

2GET CURRENT HEADER CODE(XBN OR DBN) 
ET TO GOOD HEADER CODE 


IN IMAGE BLOCK 
IT 


3NO = DO NEXT SECTOR 
POINT TO CHARACTERISTICS 
2GET GROUP OFFSET 

3GET INTO LOWBYTE 

;CLEAR HIGH GARBA 


sFOR STORE 
:GET CURRENT GROUP 
7 WORD 


2DITTO 

sMULTIPLY TO GET OFFSET FOR THIS GROUP 

21S TOTAL OFFSET MORE THAN NUMBER OF SECTORS ? 
sNO ~ ALL IS FINE 

sYES = SUBTRACT TILL IT IS 
sCHECK AGAI 

sGET LENGTH OF IMAGE BLOCK 
sFOR STORE 

: MULT 
GET LENGTH TO OFFSET 
3GET RESULT 


SEQ 281 










DBN/XBN TRACK FORMAT OVERLAY (G7) 
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TKIPS: 


TKIP12: 


TKIP?7: 


TKIP4: 


TKIP11: 


TKIP3: 


TKIP14: 
TKIP13: 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 49-1 


E IMAGE ,R4 


R4.IMSTAR 
wes S+FCTEMT, FLAG 


SECTRK,SECCNT 
BAD R2 


P7 

arcTEny FLA 
(R&R 
RR 


TKIP12 


IMSTAR ,R4 
E IMAGE ,R3 
e R3 


TKIP 
#RECIR, IMSTAR 
(R4) RS 
aLAst R3 


sGET ADDRESS OF END OF IMAGE 
fs he TO GET STARTING LOCATION 


3ST 
31S FCT AVAILABLE AND NON-EMPTY ? 
CONSIDER GOOD 
RESET SECTOR COUNT 
TO PBN 


N 
IGET LOW ORDER PBN 
ARE THEY EQUAL ? 
NO = SKIP REST OF COMPARE 
GET HIGH ORDER 
:EOUAL 3 HEADER FOR COMPARE 


AS GOOD 
:DECRERENT IT 


IT 
HIF NOT EMPTY THEN CONTINUE 
sSET FCT EMPTY FLAG 

+ ORDER BLOCK wis HOR CODE 


BAD BL 
DONE WITH THIS FCT BLOCK ? 
31F NOT DONE SKIP 
GET NEXT BLOCK NUMBER 
ELSE ee IN NEW FCT BLOCK 
POINT T O NEXT IMAGE ENTRY 
AT THE TEND 


sNOPE = CAR Y 

;POINT TO START 

2 INCREMENT CURRENT PBN COUNTER 
;DECREMENT SECTOR COUNTE 
CONTINUE TILL DONE ALL SECTORS 


POINT TO FIRST TO FORMAT ENTRY 
GET END AD 

:POINT TO FLAG oF LAST ENTRY 
sFIRST = LAST 

3NO_ = SKIP SPECIAL STUFF 

GET FLAG WOR 

3SET a att FLAG 

STORE IT BACK 


i SKIP KLUDGE FIX a UDA 


STORE IT BACK 







SEQ 283: 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 50 | 
DBN/XBN TRACK FORMAT OVERLAY (G7) 


| 
i : OMPUTE PBN FROM GIVEN DBN | 
5 : RO => CHARACTERISTICS BLOCK | 
7 : 
8 003277 104300 001140 000736 OPBN: MOV XBNSEC, TEMP :GET NUMBER OF SECTORS IN XBN AREA 
9 003302 104300 001141 000737 MOV XBNSEC+1, TEMP+1 [GET HI ORDER | 
10 003305 104204 000736 MOV ATEMP, RG {POINT R4 AT TEMP A REA 
11 003307 104203 001134 V #LBNLBN,R3 ;POINT AT NUM OF LBN'S IN LBN AREA 
1 003311 021503 CALL “ADD 
13 003312 104203 001136 MOV #RBNLBN,R3 :POINT 32 NUM OF RBN'S IN LON AREA 
14 003314 021503 CALL  DADD ZADD T O GET SECTORS IN LBN + XBN AREA 
15 003315 104203 001114 MOV #CURBN,R3 POINT r0 CURRENT BLOCK NUMBER (DBN) 
16 003317 021503 CALL  DADD :GET RELATIVE PBN 
17 003320 104641 000001 MOV 1(R4) RI [GET HIGH ORDER 
18 003322 107301 001326 SUB ST.DBN,R1 : SUBTRACT HIGH ORDER STARTING DBN 
19 003324 104140 001111 MOV (R4), CURPBN 'GET LO ORDER PBN 
20 003326 104010 00111 MOV R1, CURPBN#1 STORE HIGH ORDER 
31 3330 000000 RETURN 
23 3 
24 3 
25 : 
26 : COMPUTE PBN FROM GIVEN XBN 
37 : RO => CHARACTERISTICS BLOCK 
$6 
31 003331 104300 001134 000736 XPBN: MOV LBNLBN, TEMP :GET NUMBER OF LBN'S IN LBN AREA 
32 003334 104300 001135 000737 MOV LBNLBN+1, TEMP+1 [GET HIGH ORDER 
33 003337 104204 000736 MOV ATEMP,RG :POINT R& TO TEMP AR 
003341 104203 001136 MOV #RBNLBN,R3 [POINT R3 AT RBN'S In, LBN AREA 
35 003343 021503 CALL  DADD [ADD TO GET TOTAL SECTORS IN LBN AREA 
36 003344 104203 001114 MOV #CURBN,R3 :POINT R3 AT CURRENT BLOCK NUMBER 
37 003346 021503 CALL DADD TADD TO GET RELATIVE PBN 
38 003347 104641 000001 MOV 1(R4),R1 [GET HIGH ORDER 
39 003351 107301 001325 SUB ST.XBN,R1 [SUBTRACT HIGH ORDER STARTING XBN 
003353 104140 001711 MOV (R4), CURPBN :GET LO ORDER OF PBN 
1 003355 104010 001112 R1, CURPBN¢1 SSAVE HIGH ORDER 
42 003357 000000 








UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 51 
DBN/XBN TRACK FORMAT OVERLAY (G7) 
1 $ 
¢ PAGE IN NEW FCT BLOCK 
4 003360 DXFCP1: PUSHA 
5 003366 104201 000033 MOV #62,R1 ZDLL OVERLAY 
6 003370 022435 CALL _—~ PAGE SEXECUTE OVERLAY 
7 003371 104200 000200 001476 MOV #128. ,COUNT [FOR INIT 
8 003374 104200 005152 001224 MOV #PBNBUF , BADPBN [FOR POINTER RESET 
9 003377 POPA 
10 003405 000000 RE TURN RETURN 


4 
? 003406 
? 
8 003023 
9 003026 
10 003031 
11 003032 
12 003034 
13 003035 
14 003037 
15 003042 
16 003045 
17 003050 
18 003053 
19 003056 
20 003060 
21 003062 
22 003063 
23 003066 
24 003070 
25 003071 
26 003073 
27 003075 
28 003077 
29 003101 
30 003103 
31 003105 
32 003110 
33 003113 
34 003116 
35 003117 
36 003120 
37 003121 
38 003123 
39 003125 
40 003127 
41 003131 
42 003132 
43 003134 
44 003136 
45 003137 
46 003141 
47 003143 
48 003145 
49 003147 
50 003151 
51 003153 
26 003154 
53 003155 
54 003156 
55 003160 
56 003163 
57 003164 
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UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 52 
LBN FORMATTING OVERLAY (F2) 


-SBTTL LBN FORMATTING OVERLAY (F2) 


LBN FORMATTING 
DMOVLY F2,START 


LFORM: MOV #F2,CUROVL 
BIT #FCTAVL, FLAG 
BEQ XSKIP1 
MOV #G3,R1 
CALL PAGE 
XSKIP1: MOV #SCR,RO 
MOV LBNCYL, CYLNUM 
MOV LBNCYL, CNTCYL 
MOV LBNCYL+1,CYLNUM+1 
MOV LBNCYL+1,CNTCYL+1 
BIC #HD.CLR,CNTCYL#1 
MOV #CYLNUM,R4 
MOV #ONE ,R3 
CALL  DSUB 
MOV TOTRCT,RCTTOT 
MOV #68,R1 
CALL 
XSLEEK: MOV #SCR,RO 
MOV GRPCYL (RO) ,R3 
BIC #HIBYTE ,R3 
MOV R3,GRPCNT 
MOV R3,CURGRP 
DEC CURGRP 
XSLEK2: MOV CYLNUM, ISEEK+1 
MOV CYLNUM#1, ISEEK+2 
MOV CURGRP, ISEEK+3 
CALL SEEK 
TST R1 
BMI SEEKER 
MOV #SCR,RO 
MOV TRKGRP(RO) ,R3 
BIC #HIBYTE ,R3 
MOV R3, TRKCNT 
DEC R3 
MOV R3,CURTRK 
XSKIP3: MOV #F8 RI 
CALL PAGE 
XSKIP2: MOV DPREA,R4 
MOV HPREA.R3 


MOV UNIT, RO 
MOV #IMAGE RS 
XFC FORMAT 
TST R1 

BEQ LSKIP4 


UN.ERI 
cMP RETRY UN.ERI 
BM FORERR 
CALL INITPT 


sOVERLAY #2 
4 AVAILAABLE ? 


NO _ = SKIP SET UP 
sOVERLAY TO GET RIGHT FCT BLOCK 
sEXECUTE IT 
POINT TO CHARACTERISTICS BLOCK 
GET LO ORDER CYLINDER COUNT 

R_ COUNT 


D 
sMAKE LO ORDE 
2GET a ORDER 


:CLEAR STARTING CYLINDER BITS 
:SUBTRACT TO GET CYLINDER NUMBER 
71 = BECAUSE START AT 0 

7D0 SUBTRACT 

:GET TOTAL RCT LBN'S 

[POINT TO OVERLAY 

SCOMPUTE VARIOUS CONSTANTS 

:POINT TO CHARACTERISTICS 

7GET GROUPS/CYLINDER 

ZCLEAR OUT GARBA 

SUSE AS COUNTER 

: NUMBER 

:DECREMENT TO GET ACTUAL NUMBER 

[GET CURRENT CYLINDER NUMBER 

:GET HIGH ORDER 


:YUP = CUT OUT 

POINT TO CHARACTERISTICS 
GET TRACKS/GROUP 

2 CLEAR = GARBAGE 


:GET HEADER PREAMBLE LENGTH 
sPOINT TO TRACK IMAGE START POINT 
TRACK TO FORMAT 
2SDI_INTERCONNECT 
RECIRCULATION ADDRESS 

D0 FORMAT 

sANY ERROR ? 

NO = DO CHECK PASS 
: INCREMENT IT 

DONE ALL RETRIES ? 
: YUP - ERROR 


SEQ 285 


SEER 





SEQ 286! 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 52-1 
LBN FORMATTING OVERLAY (F2) 
58 003165 022254 CALL CLEAR ZDRIVE CLEAR 
59 003166 02224 CALL SEEK SRE-SEEK AND GROUP SELECT 
60 003167 00313 BR XSKIP2 ‘NOPE = RETRY 
61 003170 114000 000717 LSKIP4: CLR UN. ERT FOR STORE 
62 00317¢ 104301 001226 MOV EMAX,R1 ‘GET MAX REVECTORS 
63 003174 107301 001255 SUB REVCNT,R1 ‘SUBTRACT CURRENT ENTRIES 
64 003176 106301 001130 CMP SECTRK.R1 ‘ENOUGH LEFT FOR WHOLE TRACK ?? 
65 003200 073211 BMI XSKIP4 ‘YES = CONTINUE 
66 003201 104201 000011 MOV #F4,R1 ‘SIGNAL RCT UPDATE OVERLAY 
67 003203 022435 CALL PAGE :PAGE IT IN 
68 003204 114000 001255 CLR REVCNT SFOR STORE 
69 003206 104300 001225 001253 MOV ERRBUF ,ERPNT sFOR RESET 
70 003211 023377 XSKIP4: CALL H 'DO CHECK PASS 
71 003212 102200 020000 001220 BIT #INIRCT, FLAG :TIME TO INIT RCT ? 
72 003215 013237 BEQ XSKIPS5 ‘NOPE 
73 003216 101200 000100 001220 BIS #REVECT, FLAG :SET REVECTOR ON 
74 003221 103200 020000 001220 BIC #INIRCT, FLAG SRESET FLA 
75 003224 102200 002000 001220 BIT #BSTGS FLAG [DOING BEST GUESS ? 
76 003227 013234 BEQ XSKIP6 [NO = GO ALL THE WAY 
7 003230 104201 000022 MOV #F7,R1 ‘RCT INIT OVERLAY 
78 003232 022435 CALL PAGE TEXECUTE IT 
003233 003237 R XSKIPS ‘SKIP OTHER 
80 003234 104201 000014 XSKIP6: MOV #F5,R1 'DO FCT=>RCT AND INIT 
81 003236 022435 CALL PAGE TEXECUTE IT 
82 003237 117400 001113 XSKIPS: DEC CURTRK [DECREMENT IT 
83 003241 104204 001120 MOV #HOLDBN, R4 :GET STARTING BLOCK NUMBER | 
0052 104207 001053 MOV :POINT TO CHARACTERISTICS 
85 003245 104673 900011 MOV LBNTRK (RO) ,R3 [GET LBN/TRACK 
86 003247 103203 177400 BIC #HIBYTE,R3 [CLEAR HIGH BYTE 
87 003251 104030 000731 MOV R3,DDUMMY SSTORE IT 
88 003253 114000 000732 CLR DDUMMY+1 [FOR STORE 
89 003255 104203 000731 MOV #DDUMMY ,R3 *LBN/TRACK 
90 003257 021521 CALL DSUB :GET STARTING LBN FOR NEW TRACK 
003260 104300 001120 001114 MOV HOLDBN, CURSN 7GET LOW ORDER 
92 003263 104300 001121 001115 MOV HOLDBN+1 , CURBN+1 [GET HIGH ORDER 
003266 104204 001122 MOV #HOLRBN, R4 [GET STARTING RBN NUMBER 
003270 104673 000004 MOV RBNTRK (RO) ,R3 [GET RBN/TRACK 
95 003272 103203 177600 BIC #HIIBYTE RS SCLERA OUT GARBAGE 
003274 104030 000731 MOV R3, DDUMMY ‘STORE IT | 
97 003276 114000 000732 CLR DDUMMY +1 [FOR STORE | 
98 003300 104203 000731 MOV #ODUMMY ,R3 3RBN'S/TRACK 
99 003302 021521 CALL DSUB 'GET STARTING RBN FOR NEW TRACK 
100 003303 104300 001122 001107 MOV HOLRBN, CURRBN [GET LOW ORDER 
101 003306 104300 001123 001110 MOV HOLRBN+1, CURRBN+1 “GET HI ORDER 
102 003311 117400 001462 DEC TRKCNT *DECR 
103 003313 053134 BNE XSKIP3 ‘NO = DO NEXT TRACK 
104 003314 117400 001460 DEC CURGRP [DECREMENT GROUP NUMBER 
105 003316 117400 001461 DEC GPPCNT SDECREMENT IT 
106 003320 053105 BNE XSLEK2 :NO = DO NEXT GROUP 
107 003321 104204 001455 MOV #CNTCYL,R4 [GET READY TO DEC CYLINDER CNT | 
108 003323 104203 001463 MOV #ONE -R3 [CONSTANT WORD OF 1 
109 003325 021521 CALL DSUB SDECREMENT IT 
110 003326 060022 XFC UPDATE [UPDATE PROGRESS INDICATOR | 
111 003327 104204 001126 MOV #CYLNUM, R4 [GET CURRENT CYLINDER NUMBER 
112 003331 104203 001463 MOV #ONE ,R3 [FOR DECREMENT 
113 003333 021521 CALL DSUB SDECREMENT FOR NEW CYLINDER NUM 
114 003334 104304 001455 MOV CNTCYL,R4 [LOW ORDER ZERO ? 
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115 00 3 
116 00 

117 003341 
118 003342 
119 003344 
120 003345 
121 00335 
122 00335 
123 00335 
\$3 003355 
125 003357 
126 tte 
127 sit 
is 003364 
: 9 potty e 
131 03367 
132 003371 
133 003372 
134 003374 
135 003376 
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XSLEEK 
CNTCYL#1,R4 
REVCNT,R3 
XDON 
#FINI, FLAG 
F4,R1 
PAG 
LBNBAD,R3 
ERRCNT.R4 
R4,R3 
R3,LBNBAD 
#G4,R1 
NEXT 
R1,R2 
#12.,R1 
LFERR 
CYLNUM,R2 


#10. ,Ri 
ERRMNT 


ro 


:NO = CONTINUE 
HIGH ORDER ZERO ? 
TANY LEFTOVER REVECTORS ? 
SEEK 
RCT UPDATE OVERLAY 
[UPDATE IT 
7GET BAD BLOCKS FROM FCT 
7GET CHECK PASS BAD 
[ADD TO GET TOTAL 
:RCT CLEANUP 
:GET NEXT OVERLAY 
ODE 
7SIGNAL LBN FORMAT ERROR 
SCYLINDER FAILED ON 
: ERROR 


ee 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 54 
LBN FORMATTING OVERLAY (F2) 


1 ; 
$ ; CHECK PASS 
5 ; 
6 003377 114000 001227 LCHEC: CLR ERR :FOR ERROR COUNT RESET 
7 003401 114000 001222 CLR ERFLAG sCLEAR REFORMAT FLAG 
8 003403 102200 002000 001220 BIT #BSTGS,FLAG BEST ? 
9 003406 053421 BNE LSKIP SYES = DO EXTENSIVE READ 
10 003407 104200 1 00145 MOV #1,N :SET UP FOR STORE 
11 003412 104200 000005 00145 MOV #5,N1 :SET UP 
le 003415 104300 001453 001454 MOV N1,NN1 SSAVE FOR LATER RESET 
13 003420 003432 BR LSKIP2 sSKIP EXTENSIVE READ SETUP 
14 003421 104200 000003 00145 LSKIP: MOV #3,N sEXTENSIVE REGULAR READ 
15 003424 104200 000024 00145 MOV #20.,N1 ZEXTENSIVE ERROR READS 
16 003427 104 001453 001454 MOV N1,NN1 sSAVE FOR LATER RESET 
17 0034 024324 LSKIP2: CALL LFIXIT sEXECUTE IT 
18 00343 104508 000740 LSKIP1: MOV UNIT, R2 ‘GET SDI INTERCONNECT 
19 003435 06001 XFC S sWAIT FOR PULSE 
20 003436 104300 001130 001451 MOV SECTRK,SECCNT [LOAD SECTORS/TRACK 
21 003441 104205 006621 MOV #CMDBUF ,RS sPOINT TO COMMAND BUFFER 
22 003443 104207 000721 LAGAIN: MOV #ROBLK ,RO sPOINT TO READ COMMAND BLOCK 
23 003445 104653 000002 MOV RB.CMD(RS) ,R3 sREAD COMMAND ZERO ? 
24 003447 013532 BEQ NOERR SSECTOR BAD = SKIP CHECKS 
25 003450 100673 000004 MOV R3,RW.CMD(RO) TELSE STORE IN COMMAND BLOCK 
26 003452 104653 000000 MOV RB.LOWC(RS) ,R3 ;LOAD LOW ORDER SECTOR NUMBER 
44 poet ee 100073 BONO MOV RS, tape sSTORE IN COMMAND BLOCK 
8 3456 10465 MOV RB.HICRS),R ;LOAD HIGH ORDER BLOCK NUMBER 
29 003460 100673 000003 MOV R3,RW.HI (RO) [STORE IN COMMAND BLOCK 
003462 104203 004535 MOV #ROBUF ,R3 :GET BUFFER POINTER 
31 003464 100673 000001 MOV R3,RW.BUF (RO) [STORE I 
32 003466 104203 000726 MOV #HSLIM-1,R3 :POINTER TO DUMMY SDI BLOCK 
33 003470 100673 000005 MOV R3,RW.DUM(RO) ‘STORE IN READ BLOCK 
34 003472 104207 100721 READ3: MOV #<B1T15!RDBLK>,RO [MAKE SURE POINTING AT BLOCK 
35 003474 104203 100000 MOV #RDCMD ,R3 SRESET STATUS POINTER 
36 003476 100673 000000 MOV R3,RW.STAT CRO) :STORE IT BACK 
37 003500 060002 XFC READ SREAD 1 SECTOR 
38 003501 115001 TST R1 sANY ERRORS ? 
39 003502 053515 BNE LERR TYES = UH OH 
40 003503 104307 000721 MOV RDBLK,RO ‘GET STATUS WORD 
41 003505 102207 010000 BIT #ECCF.RO SECC ERROR ? 
42 003507 053515 BNE LERR ZYES = MARK AS BAD FOR NOW 
43 003510 104207 001440 V #NUM,RO [POINT TO COMPARE BLUCK 
44 OOsats 060006 XFC CMPDAT :D0 DATA COMPARE 
45 003513 115001 TST R1 SANY ERROR IN COMPARE ? 
46 003514 013532 voli BEQ LNOERR [NOPE = CONTINUE LOOP 
48 003515 104653 000003 MOV RB.IM(RS) ,R3 :GET IMAGE POINTER 
49 003517 104134 MOV (R3) ,R4 [GET BUFFER POINTER WORD 
50 0035 102204 020000 BIT DRS SALREADY BEEN HERE ?? 
51 0035 2 053532 BNE LNOERR :YUP = DON'T COUNT AGAIN 
32 003523 101204 020000 BIS #BD RS [MARK AS 
53 003525 100134 MOV R4, (R3) :STORE BACK 
54 003526 115400 001470 INC sINC IT 
55 003530 115400 001227 INC ERR s INCREMENT ERROR COUNT 
56 003532 105205 000004 LNOERR: ADD #ROLEN,RS :POINT TO NEXT READ CMD BLOCK 
57 003534 117400 001451 DEC SECCNT SDECREMENT COUNTER 





SEQ aes 
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} 
| 
58 003536 053443 BNE LAGAIN - DO NEXT SECTOR 
59 0035 117400 001452 DEC N DECRERENT COUNTER 
60 003541 05343 BNE LSKIP1 [NO = REPEAT TRACK READ AND COMPARE 
61 003542 115000 001227 TST ERR ZANY ERRORS ON FIRST PASS ? | 
62 003544 0143 BEQ LDONE [NO = ALL DONE CHECK PASS 
63 003545 104204 007321 MOV #IMAGE RG :POINT TO IMAGE BUFFER 
64 003547 104143 LHERE: MOV (R4),RS :GET BUFFER POINTER WORD 
65 003550 102203 020000 BIT #BD,R3 [1S IT BAD ? 
66 00355¢ 014173 BEQ LSKiP?7 ‘NO = SKIP IT 
67 00355 104643 900002 MOV FT.HIC(RG),R3 [GET HI ORDER BLOCK NUM AND HDR CODE 
68 003555 103203 00777 BIC #L0,R3 [CLEAR LOW ORDER 
69 003557 106203 000000 CMP #HD.LBN,R3 ‘1S IT A GOOD" LON 
70 003561 013565 SEO LSKIP8 [YES = DO IT 
0035 lobe08 060000 CMP #HD.RBN,R3 SIS IT AN RBN 22? 
72 003564 05417 BNE LSKIP7 [NOPE = ALREADY PROCESSED SKIP IT 
73 003565 104302 000740 LSKIP8: MOV UNIT, R2 [SDI INTERCONNECT 
74 003567 060012 XFC SIP 3WAIT FOR PULSE 
75 003570 104207 000721 MOV #RDBLK RO PREPARE FOR READ SECTORS 
76 003572 104203 000726 MOV #HSLIM-1,R3 <POINTER TO DUMMY SDI BLOCK 
77 003574 100673 000005 MOV R3 Rw. DUACROD ‘STORE IN COMMAND BLOCK 
78 003576 104643 000001 MOV 1(R4 :LO ORDER BLOCK NUMBE 
003600 100673 000002 MOV R3,RW.LOWCRO) ‘STORE IN READ COMD BLOCK 
80 003602 104643 9000u8 MOV 2(R4),R SHI ORDE K NUM AND Cop 
81 003604 100673 90000 MOV R3,RW.HI (RO) SSTORE IN READ CMD BLOCK 
82 003606 104203 004535 MOV #ROBUF ,R3 LOAD ADDRESS OF DATA BUFFER 
83 0034610 100673 000001 MOV RS. Rw. BUF (RO) [STORE IN COMMAND BUFFER 
84 003612 104003 1340 MOV [LOAD SDI READ COMMAND 
85 003614 10130 111 BIS cURTR RK AR [SET CURRENT HEAD ADDRESS IN COMMAND 
86 003616 100673 000004 MOV R D(RO) SSTORE BACK 
87 003620 104207 100721 READ4: MOV abr Tis ROBLK>, RO [MAKE SURE POINTING AT BLOCK 
88 003622 104203 100000 MOV #RDCMD RS [MARK AS ONLY REQUEST 
89 003624 100173 MOV 5 SSTORE IN CMD BLOCK 
90 003625 104302 000740 MOV UNIT, [SD1 INTERCONNECT 
91 003627 060002 KFC TREAD 1 SECT 
92 003630 115001 TST SANY ERROR IN READ ? 
93 003631 053653 BNE LER3 [YES = CONSIDER BAD 
94 003632 104173 MOV (RO) ,R3 SLOAD ECC ERROR INDICATOR FOR TEST 
95 003633 102203 010000 BIT #ECCE RB [TEST FOR ECC ERROR 
96 003635 013641 BEQ LSKIP6 NO = CK EDC 
97 003636 023000 CALL ECCCK FIND out HOW MANY SYMBOLS IN ERROR 
98 003637 115001 TST 1 :T 
99 003640 073656 BMI LER1 SYUP = CONSIDER BAD 
100 003641 LSKIP6: 
101 003641 106300 001445 004535 CMP DWRD ,RDBUF :1S FIRST WORD O.K. ? 
102 003644 053656 BNE LER} ; = BARF 
103 003645 104207 001440 MOV #NUM,RO :POINT TO COMPARE BLOCK 
104 003647 060006 KFC CMPDAT :d0 pata COMPAR 
105 003650 115001 TST R1 Y ERROR IN COMPARE ? 
106 003651 014163 BEQ LOK NO RROR 
107 005632 003656 BR LER1 TSKIP BAD HEADER FLAGGING 
108 003653 101200 000040 001221 LER3: BIS #BDHD,FLAG1 [FLAG AS BAD HEADER 
109 003656 10 200 000100 001220 LER1: BIT #REVECT, FLAG tIN RCT 22? 
110 003661 05 BNE LER2 SNOPE = SKIP NEXT STUFF 
111 003662 115400 001314 INC RCTBAD ZINC BAD COUNTER 
112 003664 004101 BR BDIRCT THEN MARK BA 
113 003665 104643 02 LER2: MOV FT.HI(RG),R3 SGET HI ORDER BLOCK NUM AND HOR CODE 
114 003667 103203 0077 BIC #L0,R3 [CLEAR LOW ORDER | 
= 





15 agit 
9 Dosere 
118 003676 
119 003700 
120 003703 
121 003704 
122 003706 
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124 003714 
125 003716 
126 00372 
127 00372 
128 003724 
129 ths 
130 0037 
131 003731 
132 003733 
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136 003743 
137 003745 
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139 003747 
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146 003761 
147 003763 
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UDAFM = UDA FORMATTER DMA 
LBN FORMATTING OVERLAY 


(F 
960000 CMP #HD.RBN,R3 
BEQ R 
000002 MOV FT.HICRG)R3 
170000 BIC -CLR,RS 
001000 001220 BIT #PRIM, FLAG 
BNE SND 
000732 V R3,0DUMMY+1 
001000 001220 BIS RIM, FLAG 
000004 001221 BIS #RPRIM, FLAG 
050000 BIS ® 
000002 MOV R3,FT.HI(R4) 
000001 000731 MOV FT.LOW(R4) ,DDUMMY 
MOV R4,R2 
001053 MOV #SCR,RO 
000731 MOV DDUMMY ,R4 
CALL  PRIMRB 
00115 V REVRBN,RO 
00115 MOV REVRBN#1,R1 
001324 ADD ST.RBN,R1 
060000 BIS #HD.RBN,R1 
006204 MOV #PRMBUF .RS 
000200 MOV #RBNRPT_R3 
RPT1: MOV RO, (R5)+ 
MOV R1.(R5)¢ 
DEC R3 
BNE RPT1 
MOV R2 
006204 MOV #PRMBUF RS 
MOV FT.BUF (R4) ,R2 
007777 gic #BUFMSK, Re 
000000 MOV R2.FT.BUF(R4) 
006204 MOV #PRMBUF ,R2 
CALL  CEDC 
000400 MOV R3,RW.EDC(R2) 
000040 001221 BIC #BOHD,FLAG1 
BR LSND 
001450 BRBN: DEC ERRCNT 
001000 001220 eit #PRIM, FLAG 
007321 MOV #IMAGE ,R3 
00000 5$: MOV FT.HI(R3),R2 
00777 BIC LO, 
050000 CMP #HD.PRV,R2 
000003 ADD #IMLEN,R3 
000002 63: MOV FT.HI(R3) .R2 
170000 BIC #H CLARE 
03 BIS #HD.REV.R 


gr X04.01 23-AUG-82 14:02:32 PAGE 54-2 


MOV R2,FT.HI(R3) 

#GOBLK Re 

FT.BUF (RS) RS 
UFMSK,R5 


R2, 
R5.FT.BUF(R3) 
ERENT RS 


31S _ IT A BAD RBN ? 
;YUP = GO HANDLE IT 


ZYUP = THIS ONE SECONDARY 
SSTORE HIGH ORDER FOR RBN COMPUTATION 
>SET PRIMARY FLA 


; IN_IMAGE 

sSTORE LOW ORDER FOR RBN COMPUTATION 
sSAVE IMAGE POINTER 

sMAKE SURE POINT TO CHAR BLOCK 
POINT TO BLOCK NUMBER 

GET PRIMARY RBN NUMBER 

:GET NUMBER OF REVECTORED RBN 

GET HIGH ORD 


; ADER CODE 
sUSE ROBUF TO HOLD 128 COPIES OF RBN 
COUNT OF REPLICATED RBN'S 

; STORE OPY 


7CLE 
20R_ IN NEW BUFFER POINTER 
sSTORE IT BACK 

sFOR EDC COMPUTATION 
COMPUTE IT 

sSTORE IT 

sWAN'T TO STAY PRIMARY 
sBRANCH AROUND SECONDARY 

sDEC_ERR CNT SO PRIMARY STATS WILL BE RIGHT 
21S THERE A PRIMAR THIS TRACK ? 


z1S_IT THE PRIMARY ? 
NT TO NEXT ENTRY 
TRY 


sPOINT TO GOOD BLOCK 

:GET BUFFER POINTER AND FLAGS 
sCLEAR ONLY BUFFER POINTER 

20R IN NEW BUFFER POINTER 

sMOVE IN BUFFER POINTER AND FLAGS 
2GET REVECTOR POINTER 


=e 
SEQ 290) 


| 


a 


a -_ = —_ 1 


SEQ 291) 
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172 004041 102200 020000 001221 BIT #F PRIM, FLAG :WAS IT A PRIMARY FROM THE FCT ? 

173 004044 054066 BNE 9$ TYES = UPDATE WILL MAKE IT SECONDARY 

174 004045 107205 000002 8$: SUB #ERLEN,RS [LOOK FOR PRIMARY BACKWARDS 

175 004047 10465 MOV 1(R5) ,R2 :GET HIGH ORDER 

176 004051 103202 007777 BIC #LO,R [CLEAR LO STUFF 
177 004053 106202 05 CMP #HD.PRV,R2 SIS IT THE PRIMARY ? 
178 004655 05404 BNE :NO = KEEP LOOKING 
179 004056 104652 000001 MOV 1(R5) ,R2 [GET HIGH ORDER AGAIN 

180 004060 103202 170000 BIC #HD.CLR,R SCLEAR THE HEADER 

181 004062 101202 030000 BIS #HD.REV.R [MAKE IT SECONDARY 

182 004064 100652 000001 MOV R2,1(R5) [STORE IT BACK 

183 004066 115400 001467 9$: INC SNOCNT SINC SECONDARY COUNTER 

184 004070 103200 000004 001221 BIC #RPRIM,FLAG1 [DON'T NEED GOOD EDC ANY LONGER 
185 004073 103200 000040 001221 7$: BIC #BDHD,FLAG1 [CLEAR SO WILL PUT IN AS RBN 

186 004076 101209 001000 001220 BIS #PRIM.FLAG TSET SO NONE WILL BE PRIMARY 

187 004101 104643 000002 BDIRCT: MOV FT.HICR4) R3 ‘RELOAD HEADER 

188 004103 103203 170000 BIC #HD.CLR,RS [CLEAR THE HEADER | 
189 004105 101 03 110000 BIS #HD.BAD,R3 : 
190 004107 100643 000002 MOV R3,FT.HI(R4) [STORE BACK IN IMAGE 

191 004111 102200 000100 001220 BIT #REVECT, FLAG SIN RCT ? 

198 004114 054130 BNE [NO = PUT IN TO REVECTOR 

193 004115 004166 BR LSKIP3 SELSE DO NEXT ENTRY 

194 004116 102200 000040 001221 SND: BIT #BDHD, FLAG1 ‘BAD HEADER ? 

195 004121 054101 BNE BDIRCT sYUP = MARK AS BAD | 
196 004122 101203 030000 BIS #HD.REV,R3 [MARK AS SECONDARY 

197 004124 100643 900002 MOV R3,FT.HI(R4) [STORE BACK IN IMAGE | 
198 004.126 115400 0014 INC SNOCNT IN 

199 004130 115400 0012 ; LSND: INC ERFLAG [SET REFORMAT FLAG 

200 004132 104303 00125 MOV ERPNT,R3 :STORE BACK 

201 004134 104642 MOV FT.LOW(R4) ,R2 [GET LOW ORDER BLOCK NUMBER 

202 004136 10023 MOV \ + STORE FOR RCT UPDATE | 
203 004137 104642 000002 MOV FT.HI(R4) R2 [GET HIGH ORDER 
204 004141 102200 000040 001221 BIT #BDHD, FLAG1 [BAD HEADER ? 

205 004144 014153 BEQ LSKIP9 [NO = HANDLE AS USUAL 
206 004145 103202 170000 BIC #HD.CLR,R2 SELSE CLEAR BAD HEADER CODE | 
207 004147 101202 030000 BIS #HD.REV.R2 ZAND PUT IN SECONDARY CODE | 
208 004151 115400 001467 INC SNDCNT SINC SECONDARY COUNT 
209 004153 100232 LSKIP9: MOV R2,(R3)+ SSTORE FOR RCT UPDATE 

210 004154 104030 001253 MOV R3,ERPNT ; BACK 

211 004156 115400 001255 INC REVCNT S INCREMENT IT 

12 004160 115400 001450 INC ERRCNT [UP COUNTER OF BAD BLOCKS 

213 004162 004166 BR LSKIP3 ZNO NEED TO RE-READ ANY MORE THIS SECTOR 
214 004163 117400 001453 LOK: DEC Ni *DECREMENT COUNTER 
215 004165 053547 BNE LHERE [NO = RE-READ SECTOR IN ERROR 
216 004166 104300 001454 001453 LSKIP3: MOV NN1,N1 ‘GET SAVED VALUE 
517 004171 117400 001227 DEC — ERR :DECREMENT IT | 
218 004173 103200 000040 001221 LSKIP7: BIC #BDHD,FLAG1 [CLEAR BAD HEADER FLAG 
219 004176 105204 000003 ADD #IMLEN, RG [POINT TO NEXT ENTRY 
220 004200 115000 001227 TST ERR [DONE ALL SECTORS ? | 
221 904202 053547 BNE LHERE [NO = DO NEXT SECTOR 
222 004203 115000 001222 TST ERFLAG [WERE THERE ANY BAD SECTORS FOUND | 
223 004205 014323 BEQ LDONE [NOPE = ALL DONE 
224 004206 104207 006621 MOV #RBNBUF , RO [POINT TO RBN BUFFER 

25 004210 104301 001445 MOV RD,R *DIAGNOSTIC WORD 

26 004212 100271 MOV R1,(RO)+ ‘STORE IT 
227 004213 104204 000125 MOV 5 OR [SET COUNTER OF TRIPLE WORDS 

228 004215 104301 001442 MOV RD.RI SFIRST WORD OF PATTERN 





a iC - —+ 
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329 004217 104308 001443 MOV SWRD,R ZSECOND WORD OF PATTERN 
230 004221 104 001444 MOV TWRO,R : THIRD WORD OF PATTERN 
231 004223 100871 LOVER: MOV R1, (RO)+ TSTORE IT 
932 004224 100 es MOV Re. (RO)+ ‘STORE IT 
33 004225 10027 MOV R3,(RO)+ SSTORE IT 
234 004 6 117404 DEC RG :DECREMENT COUNTER 
235 004 054223 BNE LOVER SREPEAT TILL DONE | 
536 0049 104302 001447 MOV BADEDC ,R2 SEDC FOR PATTERN (FORCED ERROR IND) | 
237 004232 10027 MOV R2, (ROS+ TSTORE IT | 
238 004233 102200 000004 001221 BIT #RPRIM,FLAG1 :NEED GOOD RBN EDC ??? | 
239 004236 014264 BEQ LOVER2 “NOPE 
240 004237 104203 007321 MOV #IMAGE ,R3 [POINT TO IMAGE 
241 004241 104205 005567 MOV #GDBLK.R5 ‘POINT TO GOOD BLOCK 
242 004243 104632 0 LOVER: MOV FT.HI(R3),R2 ‘GET HI ORDER 
243 004245 103202 00777 BIC #0, [CLEAR JUNK 
244 004247 106202 CMP #HD -RBN,R2 :I1S IT THE PRIMARY ? 
245 004251 014255 BEQ LOVER [YUP = LE IT 
246 004252 105203 000003 ADD #IMLEN,R3 SCHECK NEXT ENTRY | 
247 004254 004243 BR LOVERS :TRY AGAIN | 
248 004255 104632 000000 LOVER3: MOV FT.BUF (R3),R2 [GET BUFFER POINTER 
249 004257 103202 007777 BIC #BUFMSK,R2 [CLEAR ONLY BUFFER POINTER 
250 004261 10105¢ BIS RS, ZSET IN NEW BUFFER POINTER | 
251 004262 100632 000000 MOV R2,FT.BUF (R3) SSTORE IT | 
252 004264 104304 001322 LOVER2: MOV DPREA,R4 [DATA PREAMBLE LENGTH | 
253 004266 104303 001321 MOV HPREA,R3 ‘HEADER PREAMBLE LENGTH 
254 004270 104307 001320 MOV IMSTAR,RO [POINT TO TRACK IMAGE START POINT 
339 004272 104301 001113 MOV CURTRK.R1 [CURRENT TRACK NUMBER 
56 004274 104302 000740 MOV UNIT,R [SDI INTERCONNECT 
257 004276 104205 007321 MOV #IMAGE RS sRECIRCULATION ADDRESS 
258 004300 060001 XFC FORMAT :RE-FORMAT | 
259 004201 115001 TST R1 TANY PROBLEMS ?? 
260 004702 014320 BEQ LOVER ZNO = DO CHECK PASS 
261 00403 115400 00071 INC UN.ERI z INCREMENT IT | 
262 004305 106300 001477 000717 CMP RETRY,UN.ERI ZDONE ALL RETRIES ? 
263 004310 072366 BMI FORERR ZYUP = ERROR 
264 004311 022362 CALL _—sINITPT SREINIT 
265 004312 022234 CALL CLEAR [DRIVE CLEAR 
266 004313 104300 001460 001101 MOV CURGRP, ISEEK+3 : 
267 004316 022242 CALL SEEK :RE-SEEK AND GROUP SELECT 
268 004317 004264 BR LOVER2 [NOPE = RETRY 
269 004320 114000 000717 LOVER1: CLR UN.ERI [CLEAR RETRY COUNT 
270 004322 003377 R LCHEC SRE-CYCLE CHECK PASS | 
271 004323 000000 LDONE: RETURN 
| 
| 
| 









SEQ 293) 
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1 3 

$ : CONSTRUCT THE READ COMMAND TABLE 

z ; 

: 004324 104300 001130 001451 LFIXIT: MOV SECTRK, SECCNT :INIT COUNTER 

004327 104207 1 MOV #CMDBUF , RO :COMMAND BUFFER 

8 004331 104203 007321 MOV #IMAGE ,R5 [POINT TO TRACK IMAGE 
9 004333 104303 0012 MOV SKPCNT.R3 7GET STARTING OFFSET (TUNED) 
10 004335 105035 ADD R3, :POINT TO FIRST ENTRY | 
11 004336 104050 001233 MOV R5,STARIT ZMARK STARTING ADDRESS 
12 004340 104653 00000 LMORE: MOV 2(R5)R3 :SET UP FOR HSR CODE COMPARE 
13 004342 103203 00777 BIC #LO,R ZISOLATE HI 4 BITSC(HDR CODE) 

14 006344 106203 C #HD.LBN,R3 36 ? 
15 004346 014360 BEQ FLKIP2 ZYES = MARK AS GOOD TO CHECK 

16 004347 106203 060000 CMP #HD.RBN,R3 3GO0D RBN ? | 
17 004351 014360 BEQ FLKIP2 YES = MARK AS GOOD TO CHECK 
18 004 35¢ 114005 CLR R3 SCLEAR FOR STORE 
19 004353 100673 000002 MOV R3,RB.CMD(RO) ZSTORE AS BAD SECTOR FLAG | 
20 004355 105207 000004 ADD #RDLEN, RO ZPOINT TO NEXT BLOCK | 
21 004357 004374 BR FLKIP1 7SKIP GOOD MARK 
22 004360 104653 000001 FLKIP2: MOV 1(R5),R3 3LO ORDER BLOCK NUMBER 

23 004362 100273 MOV —s_ R33, (RO) + STORE IN READ COMD BLOCK | 
24 004363 104653 000002 MOV 2(R5) ,R3 sHI ORDER BLOCK NUM AND C | 
25 004365 100273 MOV R3, (RO)+ ZSTORE IN READ CMD BLOCK | 
26 004366 104205 013400 MOV #RUCMD,R3 ZLOAD SDI READ C | 
4 00457 101 05 001113 BIS CURTRK,R3 7SET IN CURRENT TRACK NUMBER 
8 004372 1002 MOV R3,(ROS* :STORE IN BLOCK 

29 00437 100875 MOV R5, (RO)+ ZSAVE PTR TO IMAGE BLK ENTRY 

30 004374 105305 001235 FLKIP1: ADD TBLK RS sADD TO GET NEXT SECTOR 

31 004376 106305 001232 CMP EIMAGE RS 3SEE IF HAVE TO LOOP BACK TO TOP 

32 004400 014407 BEQ LREDO :NEED TO RESET 
33 004401 034411 BPL FLKP1 3NO NEED = JUST CONTINUE 
34 004402 107305 901252 S EIMAGE RS ;SUBTRACT TO GET LOOP AMOUNT | 
35 004404 105205 007321 ADD #IMAGE RS SAND ADD OFFSET 

36 004406 004411 BR FLKP1 ZSKIP ZERO CONDITION | 
37 004407 104205 007321 LREDO: MOV #IMAGE RS ZIF ZERO SIMPLY MOVE TO FRONT 

38 004411 106305 001233 FLKP1: CMP STARIT,R5 ZAT BEGINNING ADDRESS ? 

39 004413 054420 BNE FKIP9 ZNO = JUST CONTINUE 
40 004414 105205 000003 ADD #IMLEN,RS ZELSE POINT TO NEXT ENTRY 
41 004416 104050 001233 MOV RS, IT :MAKE IT NEW STARTING ADDRESS 
42 004420 117400 001451 FKIP9: DEC SECCNT :DECREMENT 
43 004422 054340 BNE LMORE 3NO = DO NEXT SECTOR 
44 004423 000000 RETURN | 
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; 004424 

: 3 

§ 0030¢3 104200 000025 001154 LTRK 

3626 104207 001053 

8 0030 104673 000011 

9 003032 103203 177400 

10 003034 104030 001451 

11 003036 104205 007321 

12 003040 Hb 94344 005567 

13 003042 104304 001446 

14 003044 100634 000400 

15 003046 103200 001000 001220 

16 te | ISS os 005567 LKIP2: 
18 003055 190308 001114 

19 003057 Hg 3 000001 

20 003061 104303 001115 

21 003063 103203 170000 

22 003065 101203 000000 

23 003067 100653 000002 

24 003071 105205 000003 

25 003073 

26 003100 102200 000100 001220 

44 003103 933113 

8 003104 117400 001236 

29 003106 053115 

30 003107 101200 0000 001220 

31 003112 104300 001240 001313 

32 003115 LKIP9: 
33 003115 117400 001451 

$ 003117 053051 

36 3 

37 : 

38 003120 

39 003121 104207 001053 

40 003123 104673 

41 003125 103203 177600 

42 oosgs 104030 001451 
43 003131 104207 006621 LKIP8: 
44 003133 104201 005567 
45 003135 H 9g 3 000400 

46 003137 10421 LKIP20: 
47 003140 100273 
48 003141 117402 
469 thes 053137 

50 00314 Ho 001447 

BOE HBlEEE estas 
26 003150 100633 

54 003152 104303 001107 

55 003154 100633 1 

56 003156 104303 1110 

57 003160 103203 170000 


-SBTTL LBN FORMAT IMAGE SETUP OVERLAY (F8) 
DMOVLY F8,START 


SET UP TRACK FORMAT 


MOV #8, CUROVL 
MOV 

MOV LBNTRK(RO),R3 
BIC #HIBYTE ,R3 
MOV R3,SECCNT 
MOV #IMAGE RS 
MOV #GDBLK,R3 
MOV DC,R4 

MOV R4, RW.EDC(R3) 
BIC #PRIM, FLAG 
MOV #GDBLK,R3 
MOV R3,FT.BUF (RS) 
MOV CURBN, 

MOV R3,FT.LOWC(RS) 
MOV CURBN+1,R3 
BIC #HD.CLR.R3 
BIS #HD.LBN,R3 
MOV R3,FT.HICRS) 
ADD #I1MLEN,RS 
DUBINC CURBN 

BIT #REVECT, FLAG 
BNE LKIP9 

DEC RCTTOT 

BNE LKIP9 

BIS #INIRCT, FLAG 
MOV FCNT,LBNBAD 
DEC SECCNT 

BNE LKIF2 

RBN SETUP 

PUSH = RS 

MOV #SCR,RO 

MOV RBNTRK (RO) -R3 
BIC #HIIBYTE RS 
MOV R3,SECCNT 
MOV #RBNBUF , RO 
MOV #GDBLK,R1 

MOV #SECS16,R2 
MOV (R1)+,R3 

MOV R3, (RO) 

DEC R2 

BNE LKIP20 

MOV BADEDC ,R2 
MOV R2, (ROS+ 

MOV #RBNBUF ,R3 
MOV R3, FT. BUF (RS) 
MOV CURRBN RS 
MOV R3,FT.LOWC(RS) 
MOV CURRBN+1 ,R3 
BIC #HD.CLR,R3 


3GET OVERLAY OFFSET 
sPOINT TO CHARACTERISTICS BLOCK 
2GET LBN'S/TRACK 
CLEAR HIGH BYTE 
; AS COUNTER 
sPOINT TO TRACK IMAGE BUFFER 
sPOINT TO DATA BLOCK 
OOD EDC 


STILL IN RCT AREA ? 

3:NO - NO NEED TO DECREMENT 
sDECREMENT IT 

OUT OF RCT ? = NO 

SET TO REVECTOR 

2GET FCT ENTRY COUNT = AFTER RCT 


sDECREMENT COUNTER 
sCONTINUE TILL DONE ALL 


sSAVE POINTER TO FIRST RBN ENTRY 
POINT TO CHARACTERISTICS 
2GET ry BAe 


sPOINT TO GOOD BLOCK 
sCOUNT OF WORDS IN SECTOR 
:GET WORD 

sSTORE TI 

sDECREMENT COUNTER 

300 WHOL F 

sEDC FOR PATTERN (FORCED ERROR IND) 
sSTORE IT 

POINT TO BUFFER 

sSTORE IN IMAGE 

:GET LOW ORDER RBN 

sSTORE IN IMAG 

:GET HIGH ORDER RBN 
CLEAR HEADER 


sess 
assez 


79 003230 


SER 


RANISSSLERERTTS 
ssssssssssess 
SONS Saass 


Ss 
WIWWIWAINAIAWAW 


10120 


105805 


MNO 
SoOw 
MMM 


0-022 3240— 
PERE RWAWAGo 
Oonoeon 
VASO 
Owown 


=] 
Ww 


hate 


3020 2 2 2 IO Oo 
Wnrwvuiror 


aS 
Sisie 


o 
rr 
Ww 
N 


Ss 


Sseeeate 


WOFRRURR ORE 
S 


ASERUS 
SOSSNSES 
SUsNSe 


OV S20 —- S20 
SSSSSsl2US 


ou 


001451 


000731 


001220 


LKIP23: 


LKIP24: 


LKIP22: 


LKIP27: 


LKIP12: 
MO 
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ns FT wd 
RBN 

SECCNT 

LKIP21 

SECTRK,SECCNT 
IMAGE .R4 

& oR 

OFFS(R3),R2 

#HIBYTE,R2 

R2 


TEMP+1 
CURGRP ,DDUMMY 
DDUMMY +1 
#TEMP RS 
#ODUMAY ,R4 
DMU 
iw 
172 aeaiaaad 
#IMLEN, TEMP 
EMP+1 
aw ae 


(R4) ,R3 
EIMAGE ,R4 
R3,R4 


RG; IMSTAR 
HOLDPN, CURPBN 


o®+a2- ur 
= 


HOLDPN+1 , CURPBN¢1 


#eCTAVL, FLAG 
#F CTEMT, FLAG 
LKIP28 
BADPBN,R2 
(R2), 


ri 
Ri CORPBN 
LK 


#HD.CLR,R1 
RI CURPEN+ 1 


PCNT 
FCNT 


LKIP12 
#FCTEMT, FLAG 
FT. HICR4) ,R3 





3SET ‘gy HEADER 


3 STORE MAGE 
sPOINT TO NEXT ENTRY 
: INCRE RBN 


sCONTINUE TILL DONE 


;SET UP_COUNTER 
;POINT TO IMA 

POINT TO CHARACTERISTICS 
GET GROUP 


3NO = SKIP CALCULATIONS 
21S GROUP ZERO ? 

YES = NO OFFSET. 

STORE IT 
sFOR STORE 

GET CURRENT GROUP 
i CLEAR HIGH WORD 

; eiite MUL 


MULTIPLY TO GET OFFSET FOR THIS GROUP 
MORE THAN NUMBER OF SECTORS ? 


zIS gt OFFSET 


3NO = ALL IS 
YES - ++ tad TILL IT IS 
3 CHECK IN 

GET LENGTH OF IMAGE BLOCK 
ah STORE 


sFOR MULT 
GET LENGTH TO OFFSET 
T RESULT 


'GET ADDRESS OF END OF IMAGE 

suere ACT TO 4 STARTING LOCATION 
ORE IMAGE POINTER 

OW ORDER P 

Or ORDER 

T AVAILABLE ? 

:NO.» ASSUME BLOCK GOOD 
EMPTY 


;FCT 

: YUP ° BLOCKIS GOOD 
FCT POINTER 
toy 


>rOaW<zZ 
zamm 


Y EQUAL ? 
° "SKIP REST OF COMPARE 
GET H ORDER 
CLEAR THE HEADER 
HEY EQUAL ? 


COUNT 
F_NON = ZERO SKIP FLAG SET 
SET EMPTY FLAG 


3GET HEADER WORD 


SEQ 295 





115 003332 
116 0033 

11 O03 

118 003337 
119 ott 
120 00334 

is] ith ng | 
1 ‘ 00334 

123 003351 
124 003352 
125 003354 
126 003356 
127 003357 
128 003362 
129 003365 
130 003370 
131 003372 
13g 003374 
133 003376 
134 003400 
135 003401 
136 003403 
137 003405 
138 003406 
139 003407 
140 003411 
141 003413 
142 003415 
143 003417 
144 003421 
145 003423 
146 003424 
147 003425 
148 003426 
149 003427 
150 003431 
151 003433 
152 003436 
153 003440 
154 003441 
155 003443 
156 003444 
157 003444 
158 003446 
159 003450 
160 003451 
161 003453 
162 003455 
163 003457 
164 003461 
165 003464 
166 003465 
167 003465 
168 003467 
169 003471 
170 003473 
171 003475 


~ rs rs 
MMO Ore 


2 BIO — 
te 
mw 
Nn WWW 


om 
SEQ 


SSSERSSER NER 
&n WWW Nr 


¥ 
SOrNouuwoocedo 


™ 
WIA = NIN oo 


8 RSENS 
RSss 


aed aed med ad eed 


007777 
060000 


001000 001220 
000100 001220 


000002 001224 


000002 001224 


ait 
000002 001224 


LKIP25: 


6$: 


RPT: 


LKIPS: 


MARBAD : 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 56-2 
LBN FORMAT IMAGE SETUP OVERLAY (F8) 


#L0,R3 
— 
LKIP 
#PRIM,FLAG 
#REVECT, FLAG 
6$ 


#SCR,RO 
#CURBN,R4 
PRIMRB 
R4 


REVRBN,RO 
REVRBN+1,R1 
ST.RBNR1 
#HD.RBN,R1 
#PRMBUF RS 
#RBNRPT._R3 
0,(R5)+ 
R1,(R5)+ 
R3 


RPT 
#PRMBUF RS 
R3,FT BUF (R4) 
#2 ,BADPBN 


ec MBUF ,R2 
R3,RW.EDC(R2) 
LKIP4 


SNOCNT 
#FBDHD,R3 


FT.HICR4) 
H 


R3 
#HD.CLR,RS 


FT.HI(R4) R3 
#HO. RS 
#HD.BAD.R 
R3,FT.HIC(R4) 
#2.BADPBN 


I 
G 
S 
T INCREMENT I 
"G0 


YES - 


KIP_RBN STUFF 
0 pecpescee ON CHECK PASS 


L ALL BUT HEADER 
;1S_ IT AN RBN ? 
j 


oer STUFF 


: T 
sSET FLAG FOR Ht ri FOUND 


GET HIGH 


NT 

MAKE SURE POINT TO CHAR BLOCK 
POINT TO BLOCK NUMBER 

GET PRIMARY R 
at on IMAGE 


NUMBER 
POINTER 
NUMBER OF REVECTORED RBN 
ORDER 


ADD STARTING RBN BITS : 
;SET IN 


[USE RDBUF T 
[COUNT OF REPL 
“STORE A COPY 


POINT TO BUFF 


RBN_HEADER CODE 
O HOLD 128 COPIES OF RBN 
ICATED RBN'S 


[COMPUTE EDC = RETURNED IN R3 
SKIP SECONDARY REVECTOR 


sINC IT 

HEADER IN ERROR CODE IN FCT ? 
YUP = MARK 

sGET HIGH ORDER HEADER 


[CLEAR HEADER C 


ODE 
2SET HEADER TO SECONDARY REVECTOR 


sSTORE IN IMAGE 
: INCREMENT BADPBN POINTER 
;SKIP GOOD MARK 


3GET HIGH ORDER HEADER 
CLEAR HEADER CODE 
; AS BAD 


[STORE IN IMAGE 
[UPDATE COUNTER 
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Sans 
CONUS 

HN Ae Ay be by ty Ay ty 
~m 


SURAR Wo OS 
Naw LSVSRQWARRS 


co 
Oo 
WAWWWAA 


em ee ee ek ed ed ed ed st ond od = ot od od od 
WAN 
Mv 
RES 
wo 


BELRARACLS 
SSSS8S8S SSssSs8ss S8Ssssss 


Mr 
23 
g8 
WW 
ww 
vw 
Ms 


202 003556 
203 oosees 


209 003572 


eeagasncsasiente 
a ee enn oe 
=—WEWWIWWIOO = IIIA Www 


000003 
001232 
007321 
001475 


001451 


000004 
000004 
005567 
000000 


001320 
001232 
000003 


040000 


040000 
100000 


001124 
001130 


001221 
001221 


001320 


LKIP4: 


LKIP29: 


LKIP10: 


LK1P28: 


LKIP?: 
LKIP33: 


LKIP30: 


LKIP31: MOV 


L 
RETURN 





#IMLEN,R4 
E IMAGE ,R4 


ECCNT 
LKIP27 


Tt" pace 
#RPRIM,FLAG1 
R4 


#GDBLKR3 
RSET BUF (RA) 
kips3 


RG 
IMSTAR,R4 
EIMAGE ,R3 
#IMLEN,RS 
R4, 


Lkip3i 
PRECIR IMSTAR 
(R4) RS 
#LAST,R3 

R3, (R4) 
#HOLDPN, R4 
#SECTRK.R3 
DSUB 


POINT TO NEXT IMAGE ENTRY 
T THE END ? 


CREMENT 
gi THIS BLOCK OF PBNS? 


Ata T D SKIP 
ELSE laa | IN NEW FCT BLOCK 
;DECREMENT 

NO = DO NEXT BLOCK 


:NEED GOOD EDC ? 
: NOP 


CLEAR FLAG 

GET POINTER TO FIRST RBN ENTRY 
GET GOOD EDC BLOCK 

STORE IT IT IN BUFFER POINTER 


3POP STACK (RBN RNTRY ADDRESS) 
:POINT i a ha}: TO FORMAT ENTRY 
2GET END ADDRESS 

othe to. FLAG 5oF LAST ENTRY 


NO . Bg SPECIAL STUFF 
3GET FLAG WORD 
3SET RECIRCULATION FLAG 
;STORE IT BACK 
i SKIP ee ota UDA 


SSUBTRAC TO GET NEXT TRACK 
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1 
2 : PAGE IN NEXT FCT BLOCK 

4 003573 FCPG: PUSH R5,R4 ZSAVE RS AND R4 

5 003575 102200 000002 001220 BIT #F CTEMT, FLAG SEMPTY FCT 

6 003600 053612 BNE 1$ ‘YUP = DON'T GET BLOCK 
7 003601 104200 005152 001254 MOV #PBNBUF , BUF PNT ‘POINT TO BUFFE 

8 003604 104201 000017 MOV #F6,R1 SOVERLAY F6 DOES IT 

9 003606 022435 CALL PAG ZEXECUTE IT 

10 003607 104200 000200 001475 MOV #128. ,PCNT SRESET COUNT 

11 003612 1$: POP R4,RS SRESTORE R4 AND RS 

12 003614 000000 RE TURN RETURN 


S 


NM—COONAUEWN “OVONOUSWN— 


NOPD) 2 2 a 


33 


ao 
oooooooocoon 


4 
3160 


001154 
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-SBTTL L/RBN COMPUTE OVERLAY (G8) 


pai Sy OVERLAY COMPUTES LBN AND RBN OF THE LAST TRACK ON LAST LBN CYLINDER 
D COMPUTES THE PBN OF THAT LBN 


DMOVLY G8,START 


#G8 , CUROVL 


RBN 
) ,CURRBN 


4) ,HOLRBN 
RAS, MHOLRBNS1 


Dao 


zFOR RECORDING 
sPOINT TO CHARACTERISTICS BLOCK 
;GET NUMBER OF FIRST LBN ON LAST LBN CYL 


45 ,CURRBN¢1 


OR LATER 
:GET FBN OF FIRST SECTOR ON LAST TRACK 






5 903069 
6 00306 

7 003066 
8 003071 
9 003075 
10 003075 
11 003076 
\¢ 003100 
13 003102 
14 003704 
15 003106 
16 003110 
17 003112 
18 003114 
19 postig 
20 00314 


RLERASK 


Ore HS pm SB os OOO HH Os 
SERA REESE 
SUSSSRISSERS 


NUMLBN: 
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yt we STARTING LBN ON LAST TRACK 


MOV 
MOV 


RETURN 


CHARACTERISTICS BLOCK 


LBNCYL, TEMP 


LONCYL#1, TEMP+1 
TEMP +1 


#HD.CLR 
ATEMP, RS 
#LBNPCYR3 


MUL 
1(R4),R1 
ST.LBN,R1 


R1,1(R4) 
LBNTRK(RO) ,R3 
#HIBYTE ,R3 


R3, 
DDUMMY +1 
#DOUMMY ,R3 
DSUB 


sGET LOW ORDER NUM OF LBN CYLINDERS 


GET HIGH 


ORDER 
CLEAR STARTING CYLINDER BITS 


3GET 


LBN 
ADD STARTING LN TO GET ABSOLUTE LBN 
3 STORE one 


3GET 


GET , S/CYLIN 
FIRST 


NDER 
LBN ON LAST CYLINDER 


LBN/T 
Hh ay HGH BYTE 


RACK 
sWANT LBN ON LAST TRACK 





pa 


SEQ 301 
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1 3 

2 ; COMPUTE STARTING RBN ON LAST TRACK IN LBN AREA 

; ; RO => CHARACTERISTICS BLOCK 

% 003120 104300 001144 000736 NUMRBN: MOV LBNCYL, TEMP :GET LOW ORDER NUMBER OF LBN CYLINDER 
6 003123 104300 001145 00073 MOV LBNCYL+1, TEMP+1 [GET HIGH ORDER 

o0i¢¢ 103200 1700 000737 BIC #HD.CLR, TEMP+1 ;CLEAR STARTING CYLINDER BITS 

8 003131 104204 0007 MOV ATEMP, RS : 

9 003133 104203 001150 MOV #RBNPCY,R3 'GET RBN'S/CYLINDER 

10 003135 021537 CALL DMUL ;GET FIRST RBN ON LAST CYLINDER 
11 003136 104641 000001 MOV 1(R4),R1 sGET '“4IGH ORDER 

12 003140 105301 001324 ADD ST.RBN,R1 SADD TO GET ABSOLUTE LBN 

13 003142 100641 000001 MOV R1,1(R4) SSTFRE BACK 

14 003144 104673 000004 RBNTRK(RO) ,R3 :GET RBN/TRACK 

15 003146 103203 177600 BIC #HIIBYTE RS ‘CLEAR OUT GARBAGE 

16 003150 104030 000731 MOV R3,DDUMMY SSTORE IT 

17 003152 114000 000732 CLR DDUMMY +1 FOr STORE 

18 003154 104203 

19 003156 021521 CALL  DSUB :GET IT 
20 003157 000000 RETURN 


| 
| 
000731 MOV =, #DDUMMY,, R3 SWANT Last TRACK 
| 
| 
| 
| 






L/RBN COMPUTE OVERLAY (G8) 





é 0031 104300 1114 00073 
§ b3163 104300 GREE 00073 
003166 104204 000736 
8 003170 ead 000001 
9 003172 1073501 001323 
10 003174 100641 000001 
11 003176 104673 000011 
\¢ 003200 103203 177400 
13 003202 104030 000731 
14 Oo ashe 114000 000732 
15 003206 104203 000731 
16 003210 021565 
17 003211 104673 000004 
18 003213 103203 177600 
19 003215 104030 000731 
20 003217 114000 000732 
21 003221 104203 000731 
22 003223 021537 
23 003224 104300 001114 000731 
24 003227 104300 001115 000732 
25 003232 107300 001323 000732 
26 003235 104203 000731 
7? it 554 061305 
8 003240 104140 001124 
29 003242 104640 000001 001125 
30 003245 000000 


[Tee Oe Oe te 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 61 





lh PBN FROM GIVEN 





LEN 
CHARACTERISTICS BLOCK 


CURBN, TEMP 
CURBN# | TEMP+1 


#DDUMAY ,R3 
RBNTRK (RO) 
#HLIBYTE RS 
DDUMMY+1 
#ODUMMY ,R3 
DMUL 


R3 


CURBN ,DDUMMY 
CURBN+1 ,DDUMMY +1 
ST.LBN,DDUMMY+1 


(R4) ,HOLDPN 
1(R45,HOLDPN+1 


sGET LOW ORDER 


H_ ORDER 
‘SY feed LBN TO GET ABSOLUTE LBN 
GET LON'S/TRACK 


DI 
T NUMBER OF TRACKS 
GET ny BA poe 


NUMBER OF RBN‘S 
$GET LOW ORDER CURRENT BLOCK NUMBER 
GET HIGH ORDER 
i SUBTRACT STARTING 
FOR ADD 
ADD TO GET PBN 
3GET LOW ORDER 
STORE HIGH ORDER 


ee 


E San is Nene am CG ott SES 


UDAFM = UDA FORMATTER DMACR Ta 23-AUG-82 14:02:32 PAGE 62 
FCT DOWN-LINE LOAD OVERLAY (F3) 





4 .SBTTL FCT DOWN-LINE LOAD OVERLAY (F3) 
5 ; DOWNLINE LOADER FOR FCT 
3 003246 FDLL: DMOVLY F3,START ZOVERLAY #3 
7 00 104200 000006 001154 MOV #F3,CUROVL ZOVERLAY #3 
8 00 104200 000001 001476 MOV #1, COUNT INIT COUNT TO_1 
9 00 104 001325 001117 MOV ST.XBN, CURXBN¢1 ZALSG INITIALIZE XBN COUNTER 
10 00 104300 001325 001115 MOV ST.XBN, CURBN#1 ‘HIGH ORDER 
11 003037 114000 001116 CLR CURXBN [LOW ORDER IS ZERO 
12 00 114000 001114 CLR CURBN :DITTO 
13 00 104207 001424 MOV #CONBLK RO :POINT TO CONVERT BLOCK 
14 00 104203 001053 MOV : [POINT TO CHARACTERISTICS 
15 00 104632 000000 MOV CYLBN(R3) ,R2 [GET LON CYLINDERS 
16 00 100672 000000 MOV R2,V1(RO) ‘STORE IN CONVERT BLOCK 
17 00 104632 000001 MOV CYLBN+1(R3) ,R2 :GET HIGH ORDER 
18 00 100672 000001 MOV R2,V1+1(RO) SSTORE IT 
19 00 104303 001130 MOV SECTRK,R3 'GET SECTORS/TRACK 
20 00 100673 MOV R3,V3(RO) :STORE IN CONVERT BLOCK 
21 00 102200 002000 001220 BIT #BSTGS FLAG ZIN BEST GUESS MODE ? 
22 00 053070 BNE NODLL :YUP = FIX UP FIRST BLOCK 
23 00 003120 BR LOOP [START LOOP 
24 00 104203 004535 NODLL: MOV #RDBUF ,R3 ‘POINT TO BUFFER 
25 00 114002 CLR R2 [SET MEDIA MODE TO 0 (IN FORMAT) 
26 00 100132 MOV R2, (R3) SSTORE IT 
37 00 104204 01306 MOV #SERNUM, RG [POINT TO SERIAL NUMBER 
8 00 105203 00 ADD #FSER,RS ‘POINT TO ENTRY IN FCT BLOCK 
29 003100 104205 MOV #4,R5 SINIT COUNTER 
30 003102 104242 9$: MOV (R4)+,R2 3GET 
31 003103 100232 MOV R2,(R3)+ SSTORE WORD 
32 003104 117405 DEC RS SDECRMENT COUNTER 
33 003105 053102 BNE 9$ [CONTINUE TILL DONE 
34 003106 114002 CLR R2 ‘FOR INSTANCE NUMBER 
35 003107 104203 004535 MOV #ROBUF ,R3 SRESET POINTER 
36 003111 100632 000001 MOV R2, INST(R3) [STORE INSTANCE NUMBER IN BLOCK 
37 003113 101208 100000 BIS FCT, ‘SET NO FCT AVAILABLE BI 
38 003115 100632 000575 MOV R2,FCTFLG(R3) ‘STORE IT IN FCT INFO BLOCK 
39 003117 003153 : BR LOOPP2 :SKIP DLL STUFF 
40 003120 104205 001244 LOOP: MOV #OMBUF ,RS [POINT TO MAINT BUFFER 
41 003122 104303 001317 MOV FCMSG,R3 [GET DUP CODE 
4@ 003124 100153 MOV R3,(R5) :STORE IT IN MESSAGE 
43 003125 104303 001114 MOV CURBN,R3 3GET BLOCK NUMBER DESIRED 
44 003167 100653 000001 V R3,1(R5) sSTORE IT 
45 003131 02052 CALL § SNDMNT : REQUEST 
46 003132 0225 CALL RCVMNT TRECEIVE ANSWER 
47 003133 10415 MOV (R5) ,R3 [GET STATUS WORD 
48 003134 053424 BNE DONDLL : T ZERO THEN DONE 
49 003135 104650 000001 001421 MOV 1(R5) ,OVLBLK+1 [GET LOW HOST ADDRESS 
50 003140 104650 000002 001422 MOV 2(R5) ,OVLBLK+2 [GET HIGH HOST ADDRESS 
51 003143 104200 000401 001420 #257. ,OVLBLK ; R OF WORDS TO TRANSFER 
32 003146 104204 001420 MOV VLBLK,R4 [FOR OVERLAY ROUTINE 
53 003150 104203 535 UF ,R3 [POINT TO BUFFER 
54 003152 022510 OVRLAY GET CTOR 
55 003153 114005 LOOPP2: R5 ICLEAR WRITE ERROR COUNT 
56 003154 104050 001246 MO R5,NEXT1 7 CLEAR TC 
57 003156 106200 000001 #1, COUNT [1S IT THE FIRST ONE ? 


a | 


SEQ 304 
AFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 62-1 | 
T DOWN-LINE LOAD OVERLAY (F3) 
58 003161 053201 BNE LOOPP :NO = SKIP THIS STUFF 
59 003162 104204 001302 MOV ADATE RG [POINT TO SERIAL NUMBER | 
60 003164 104203 00453 MOV #ROBUF ,R3 :POINT TO BUFFER 
61 003166 114005 CLR RS ‘FOR MEDIA FORMAT UPDATE 
62 00316 100135 MOV R5, (R3) [SET FORMAT IN PROGRESS | 
63 003170 105205 000012 ADD #EDAT,R3 :POINT TO ENTRY IN FCT BLOCK 
64 003172 104205 000004 MOV #6 R5 SINIT COUNTER | 
65 003174 142e¢ 10$: MOV (R4)+,R2 ‘GET WORD | 
66 003175 10023 MOV =—-R2, (RS) + ;STORE WORD | 
67 003176 117405 DEC R5 :DECRMENT COUNTER 
68 003177 053174 BNE 10$ CONTINUE TILL DONE | 
69 003200 114005 CLR R5 [CLEAR RS (ERROR COUNTER) 
70 003201 104202 004535 LOOPP: MOV #ROBUF ,R2 ‘POINT TO BUFFER | 
71 003203 022600 CALL  CEDC SCOMPUTE EDC | 
72 003204 100623 0004 V R3,RW.EDC(R2) SSTORE IT 
003206 104300 001114 000736 MOV CURBN, TEMP [GET LOW ORDER | 
74 003211 104300 001115 000737 MOV CURBN+1, TEMP+1 [GET HIGH ORDER 
003214 104204 000736 MOV ATEMP RG [FOR SUB l 
76 003216 104641 000001 MOV 1(R4)-R1 [GET HIGH ORDER | 
77 003220 107301 001325 SUB ST.XBN,R1 [SUBTRACT STARTING XBN 
78 003222 100641 000001 MOV 1,1(R4) ZSTORC BACK 
79 003224 022665 CALL  CvTSk [CONVERT AND SEEK 
80 003225 104207 000721 MOV #WRBLK RO [POINT TO COMMAND BLOCK 
81 003227 104203 122400 MOV #WRCMD.R [GET WRITE COMMAND 
82 003231 Heb 001113 MOV CURTRK,R2 3GET CURRENT TRACK 
SF OOsSer 100e9 4 Bay R3,RW.CMD(RO) SST ORE IN COMMANE NO BLOCK 
Bg $0 3536 190308 ita MOV aROEUE CRS ‘POINT TO BUFFER 
86 003240 100673 1 MOV R3,RW.BUF (RO) :STICK IN COMMAND 
87 003242 104303 001114 MOV CURBN RS :GET LOW ORDER HEADER 
88 003244 100673 MOV R3,RW.LOWCRO) [STORE IN WRITE BLOCK 
89 003246 104303 001115 CURBN+1,R3 [GET HIGH ORDER | 
90 003250 101203 BIS #HD.XBN,R3 [SET HEADER 
91 003252 100673 000003 R3,RW.HI (RO) SSTORE IN WRITE BLOCK | 
92 003254 104203 000726 MOV #HSLIM-1,R3 [GET DUMMY SDI POINTER 
93 003256 100673 000005 MOV RS -Ru-DUACRO) [POINT IN COMMAND BLOCK | 
94 003260 104303 001321 WRITE1: MOV HPREA,R 'GET HEADER PREAMBLE 
95 003262 104304 001322 MOV DPREA,R& [GET DATA PREAMBLE 
96 003264 104302 000740 MOV UNIT,R2 ?SET UNIT 
97 003266 104207 000721 MOV #WRBLK,RO [MAKE SURE POINTING AT BLOCK 
98 003270 101207 100000 BIS #B1T15.RO TSET NO REVECTORING 
99 003272 O60012 XFC SIP [WAIT FOR SECTOR PULSE | 
100 00 06000 XFC WRITE [WRITE SECTOR 
101 003274 115001 TST R1 ‘ANY ERROR ? 
102 003275 013322 BEQ NO NOPE | 
103 003276 106500 001477 001501 CMP RETRY, THPTRY [MAX ? 
104 003301 01330 BEQ 1$ TYES = TRY SOME RECOVERY 
105 003302 115400 001501 INC TMPTRY SINC RETRY COUNT | 
106 003304 003260 BR WRITE1 [D0 RETRY 
107 003305 104303 001502 1$: MOV RECTMP,R3 :GET CURRENT ERROR RECOVERY LEVEL 
108 003307 073321 BMI 2$ TIF NEGATIVE THEN FRIED 
109 003310 115000 001500 TST RECOV [1S THERE ONLY RECOVERY LEVEL 0 ? 
110 003312 013314 BEQ é ZYES = NO NEED TO ISSUE IT - JUST RETRY | 
111 003313 022571 CALL  ERRHND [TRY RECOVERY | 
112 003314 114000 001501 3S: CLR TMPTRY : NIT 
113 003316 117400 001502 DEC RECTMP SDECREMENT IT 
114 003320 003260 BR WRITE1 SRETRY 
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115 003321 
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123 003336 
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FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 62-2 
LOAD OVERLAY (F3) 


RS 

ExT1 

TMPTRY 
RECOV, RECTMP 
#CURBN,R4 
#FCTEME ARS 
FCTCPY NEXT 
FCTCPY,RS 
ERROR 
#BSTGS,FLAG 
#NOLL FLAG 
DLLATI 
UPDATE 

OUNT 

CURXBN 
CURXBN, CURBN 
CURXBN+1 , CURBN+1 
FCTNPD, COUNT 
FCTCPY 
FCTERT .COUNT 
#F CTAVL, FLAG 
#CR,R 
FRCPY(RO) .R3 
R3 
#FECLR,R3 
R3,FCTCPY 
#1 


NEX 
#SECSI6,RS 
#ROBUF ,R4 


R3,(R4)+ 
R5 


18. ,R1 


& 
ERRANT 





sYUP = INCREMENT COUNTER 
Ss INCREMENT IT 

sFOR RESET 

3GET RECOVERY LEVELS 

FOR ADD 

3sFOR ADD 

sPOINT TO NEXT COPY 

sDONE THIS SECTOR ? 

sNO = WRITE NEXT FCT COPY 
sERROR ON EVERY WRITE ? 
;YUP = BIG TROUBLE 

;BEST ? 


YUP = JUST WANT TO WRITE FIRST BLOCK 
sALL DONE ??? 

sYUP = EXIT 

sLET HOST KNOW STILL ALIVE 

INCREMENT IT 


7G 
2GET HIGH ORDER 
zAT_ THE LAST NON-PAD ENTRY 


:DECREMENT = NO PAD ON LAST COPY 
SNOPE = DO NEXT SECTOR 


[SET FCT AVAILABL 
[POINT TO CHARACTERISTICS BLK 
COPIES 


:COUNT FOR 
a4 TO BUFFER 


[GET XFC ERROR CODE 
SFCT WRITE €28S% 
TERROR RETURN 





¢ 003444 
4 

5 

6 

? 

8 

3 

10 

11 003023 
12 003026 
13 003030 
14 003031 
15 003033 
16 003034 
17 003036 
18 003037 
19 ta 
20 00304 
21 003047 
€2 003051 
23 003052 
24 003055 
25 003057 
26 003061 
sf 00 

8 003067 
29 003070 
30 003072 
31 003075 
32 003077 
33 003100 
34 003101 
35 003103 
36 003104 
37 003106 
38 003110 
39 003111 
40 003113 
41 003115 
4g 003116 
43 003120 
4a OO sIs6 
45 00312 
46 003125 
47 paige 
48 003131 
49 003133 
50 003134 
51 003137 
26 003142 
53 003144 
54 003146 
55 003150 
56 003126 
57 00315 
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UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 63 
RCT UPDATE OVERLAY (F4) 


ROVER: 


ROVER1: 


: MOV #F4,CUROVL 


-SBTTL RCT UPDATE OVERLAY (F4) 
DMOVLY F4,START 


THIS OVERLAY UPDATES THE RCT WITH THE SECTORS 
IN THE ERRBUF BUFFER 


GET OVERLAY 


MOV CURTRK,R3 [GET CURRENT TRACK 

PUSH = R3 SSAVE FOR RESTORE 

MOV CYLNUM,R3 [GET LOW ORDRE CYLINDER 

PUSH SSAVE FOR ORE 

MOV CYLNUM+1,R3 [GET HIGH ORDER 

PUSH = R3 SSAVE FOR RESTORE 

MOV LBNLBN,HOLD [GET LOW ORDER COUNT OF LBN'S 

MOV LBNLBN+1,HOLD+1 :GET HIGH ORDER 

MOV #TOTRCT RS [FOR SUBTRACT 

CALL DSUB [GET STARTING RCT LON 

MOV ERRBUF ,UPDPNT :POINT TO ERROR BUFFER 

MOV UPDPNT.R2 'GET POINTER TO BAD LIST 

MOV (R2) ,DDUMMY [GET LOW ORDER 

MOV 1(R25 ,DDUMMY+1 [GET HIGH ORDER 

BIT #81715 .DOUMMY+1 71S IT AN RBN ?? 

BEQ ROVER? [NO = REGULAR HASH 

MOV #-1,R1 [HASH FOR RBN 

BIC #HD.CLR,DDUMMY+1 [CLEAR THE HEADER 

MOV #ODUMMY -R4 ‘FOR HASH 

CALL §-UHASH [FIND THE RCT ENTRY FOR CURRENT ERR BLOCK 
V (R4) ,R3 [GET BLOCK NUMBER 

ADD #2,R [ADD TO GET PAST FIRST 2 BLOCKS 

MOV R3,(R4) STORE 

MOV R3,RCTCNT [FOR LATER PING-PONG 

MOV #HOLD,R [FOR AD 

CALL  DADD [TO GET LBN OF RCT BLOCK 

MOV R4 BUF PNT [STORE POINTER TO BLOCK NUMBER 

MOV #Hi,R1 ZRCT READ OVERLAY 

CALL PAG ; 

MOV #RCTBUF RS [POINT TO BUFFER 

MOV OF FSET,R3 [GET OFFSET 

ADD R3 [POINT TO HIT ENTRY 

MOV UPOPNT,R2 ZRESTORE POINTER 

MOV 1(R2),R3 [GET THE HEADER 

BIC #LO,R ZCLEAR ALL BUT HEADER 

CMP #HD.BAD,R3 71S IT A BAD RBN ? 

BNE NOTR [NOPE = CHECK FOR PRIMARY 

MOV O(RS), TEMP [GET LOW ORDER CURRENT RESIDENT 

MOV 1(R5) . TEMPO+1 [GET HIGH ORDER 

BIC #HD.CLER.RS [CLEAR HEADER 

BIS #RC.UNU.R SMARK AS UNUSUABLE 

BIC #LO,R3 [CLEAR LOW ORDER 

MOV R3,1(R5) SSTORE IT BACK 

CLR [CLEAR FOR STORE 

MOV R3,(R5) ZCLEAR LOW ORDER 


SEQ 307 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 63-1 
RCT UPDATE OVERLAY (F4) 

58 003154 102200 020000 000734 BIT #81113, TEMP2+1 yANY THING DISPLACED 22? 
59 003157 01327 BEQ BOTTOM ZNO = NO NEED TO PING-PONG 
60 003160 02337 CALL RCTwT [WRITE UT BLOCK 
61 003161 023571 CALL  PNGPG [FIND IT A NEW HOME 
6¢ 003162 104204 006621 MOV #RCTBUF RS ;POINT TO BUFFER 
63 003164 105054 ADD R4 ADD OFFSE | 
64 003165 104202 000733 MOV #TEMP2,R2 :POINT of? OLD grESIDENT 
65 003167 10412 MOV (R2) ,RS GET 
66 003170 100143 MOV RSs che ;PUT iT 
67 003171 104623 1 (R2),R3 GET HIGH ORDER | 
68 003173 103203 170000 BIC #HD.CLR,R3 [CLEAR HEADER | 
69 003175 101203 030000 BIS #RC.SND,R3 :MARK AS SECONDARY 
70 003177 100643 000001 MOV R3, 1(R45 ‘STORE IT 
71 003201 003 76 BR BOTTOM 760 TO BOTTOM OF LOOP 
72 003202 10620 050000 NOTR: CMP #HD.PRV,R3 ; PRIMARY REVECTOR 
73 003204 05 36 BNE SECNDY - TREAT AS OF ONDARY 
74 003205 104653 000001 MOV 1(R5) ,R3 ‘GET RCT 
75 003207 103203 007777 BIC #LO0,R3 [CLEAR AL BUT HEADER 
76 003211 106203 000000 CMP #RC-FRE,R3 sI1S IT FREE ? 
77 003213 053231 BNE SWAP [NO = SWAP ENT RIES 
78 003214 104123 MOV (R2) ,R3 [GET LOW BLOCK NUMBER | 
79 003215 100153 MOV R3, (R5) SSTORE IN RCT 
80 003216 104623 000001 MOV 1(R2),R3 :GET HIGH ORDER 
81 003220 107303 001323 SUB ST.LBN,R3 :SUBTRACT STARTING LBN BITS | 
82 003222 103203 170000 BIC #HD.CLR,R3 [CLEAR HEADER 
83 003224 101203 020000 BIS #RC.PRV.RS ‘SIGNAL PRIMARY REVECTOR IN RCT | 
84 005226 100655 000001 MOV R3,1(R55 SSTORE IN RCT 
85 003 003276 BR BOTTOM :GO TO BOTTOM OF LOOP | 
86 003231 104650 000000 000733 SWAP: MOV 0(RS), TEMP2 3GET LOW ORDER CURRENT RESIDENT 
87 003234 104650 000001 000734 MOV 1(R5), TEMP2+1 >GET HIGH ORDER CURRENT RESIDENT | 
88 003237 104123 MOV (R2) ,R3 3GET LOW ORDER NEW RESDENT 
89 003240 100153 MOV R3, (RS) IN RCT | 
90 005241 104628 000001 MOV 1(R2),R3 GET HIGH ORDER NEW RESIDENT 
91 003243 107303 001323 SUB ST.LBN,R3 SSUBTRACT STARTING LON BITS | 
92 003245 103203 170000 BIC #HD.CLR,R3 [CLEAR THE HEADER 
93 003247 101203 020000 BIS #RC.PRV_R3 : 

003251 100653 000001 MOV R3,1(R5) :PUT IN RCT 

003253 023375 CALL  RCTwT WRITE OUT PRIMARY BLOCK 
96 003254 104202 000733 MOV #TEMP2,R2 :POINT TO OLD RESIDENT 
97 003256 023571 SECNDY: CALL  PNGPG ‘FIND RCT ENTRY FOR SECONDARY 
98 003257 104204 006621 MOV #RCTBUF ,R4 ‘POINT TO BUFFER 
99 003261 105054 ADD RS_R ZADD OFFSET | 
100 003262 104123 MOV (RO) ,R3 :GET LOW ORDER NEW ENTRY 
101 003263 100143 MOV R3, (RG) :PUT IN RCT 
108 003264 104623 MOV 1(R2),R3 [GET HIGH ORDER NEW ENTRY 
103 003266 107303 001323 SUB ST.LBN,R3 ‘SUBTRACT STARTING LBN BITS 
104 003270 103203 1 BIC #HD.CLR,R3 [CLEAR HEADER 
105 00327 101208 030000 BIS #RC.SND.R3 ZFLAG AS SECONDARY | 
106 003274 10064 000001 MOV R3, 1(R45 >STORE IN RCT 
107 00 26 023375 BOTTOM: CALL RCTwT ‘WTIR OUT RCT BLOC 
108 003277 105200 900002 001471 ADD #ERLEN ,UPDPNT [POINT TO NEXT ERROR SECOTR 
109 003302 117400 00125 DEC REVCNT SDECREMENT IT 
110 003304 053055 BNE ROVER [NOT DONE = DO NEXT SECTOR | 
111 003305 POP R 3GET HIGH ORDER CYL 
Ie 003306 104030 001127 MOV -CYLNUMS1 SRESTORE IT 
113 003310 104030 001100 MOV Ra. EEK+2 :PUT IN SEEK COMMAND 
114 003312 POP Ra’ [GET LOW ORDER | 
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TTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 63-2 


: »CYLNUM 
 ISEEK+1 


R3,CURTRK 
#FINI,FLAG 


K 
CURGRP, ISEEK+3 
SEEK 


STO 
:00. THE SEEK ? 


RESTORE GROUP TO SEEK 
GET BACK TO RIGHT CYLINDER 





UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 64 
RCT UPDATE OVERLAY (F4) 
1 ; 
4 : COMPUTE RCT ADDRESS FOR GIVEN LBN 
4 003333 115001 UHASH: TST RI :NEED TO COMPUTE PRMARY RBN ? 
5 003334 073364 BMI UHKIP1 =NO = SKIP 
6 003335 104207 001053 MOV #SCR,RO :POINT TO cleUNIT CHARACTERISTICS 
003337 022730 CALL = PRIMRB SCOMPUTE PRIMARY RBN 
8 003340 104200 000200 000736 UHKIP: MOV #128. , TEMP DIVIDE BY 128 TO GET BLOCK NUMBER 
9 003343 114000 0007 CLR TEMP+{ SFOR STORE 
10 003345 104300 001152 000731 MOV REVRBN,DDUMM [GET PRIMARY RBN 
11 003350 104300 001153 000732 MOV REVRBN+1 ODUMMY +1 GET HIGH ORDER 
12 003353 104204 000731 MOV #DDUMMYR [FOR DIVIDE 
13 003355 104203 000736 MOV #TEMP,RS :DITTO 
14 003357 021565 CALL  DDIV SDDUMMY=RCT BLOCK NUMBER 
15 : TEMP=OF F SET 
16 003360 104131 MOV (R3),R1 [GET OFFSET 
17 003361 105071 ADD 1,Ri ‘MULTIPLY BY 2 
18 003362 100131 MOV R1.(R3) ‘STORE BACK 
19 003363 000000 RETURN 
20 003364 104140 001152 UHKIP1: MOV (R4) ,REVRBN :FORDIVIDE SETUP 
21 003366 104640 000001 001153 MOV 1(R45, REVRBN¢1 2D 
22 003371 107300 001324 001153 SUB ST.RBN,REVRBN+1 ‘SUBTRACT STARTING RBN BITS 
23 003374 003340 BR UHKIP :DO DIVIDE 





UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 65 


RCT UPDATE OVERLAY (F4) 


; 

4 003375 
5 003376 
6 003400 
? 003402 
8 003404 
9 sit re 
10 00341 
11 003412 
\¢ 003414 
13 003416 
14 003420 
15 OOshss 
16 00342 
17 003425 
18 003426 
19 003430 
20 003432 
21 003434 
22 003435 
23 003437 
24 003441 
25 003442 
26 003444 
27 003446 
28 003447 
29 003451 
30 003453 
31 003455 
32 003457 
33 003461 
34 003463 
35 003465 
36 003467 
37 003471 
38 003473 
39 003475 
40 003476 
41 003477 
42 003500 
43 003501 
44 003504 
45 003505 
46 003507 
47 003510 
48 003512 
49 003513 
50 003515 
51 B03216 
26 00351 
53 003521 
54 Oo seSe 
55 003524 
56 003524 
57 003525 


SESeeeeeee 
SESSENE DEES 


-_ 
S 
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SRSR SESS an eNe 


WENN 


NENEGUR TPES URS SPREE SE SSCS 
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ey et 
# 
Sa 38s 


S==se-s2 


a 
— 


001501 


RCTwT: 


RCTWLP: 


WRITE2: 


1$: 


3$: 


2$: 
RWGD: 


WRITE AN RCT BLOCK 


CLR 


R5 
RS ,NEXT1 
#ODUMMY ,R4 


r 
LBNTRK(R3) ,R2 
#HIBYTE ,R2 
#CONBLK RO 
R2,V3(RO) 
STCYL(R3) ,R2 
#LO,R 
R2,V1+1(RO) 
R2,V1(RO) 
CvTSk 
#WRBLK,RO 
#URCMD,R3 
CURTRK Re 
R3,RW.CMD(RO) 
#RCTBUF ,R2 
CED 
R3,RW.EDC(R2) 
R2,RW.BUF (RO) 


(R4) ,R3 
R3,RW.LOWC(RO) 
1(R4),.R3 


DPREA,R4 


WRITE2 
RECTMP,R3 


WRITE2 


R5 
NEXT1 


ee — ~y 


SEO 310 


CLEAR ERROR OCUNTER 
RESET NEXT COUNTER 
POINT TO BLOCK 

POINT TO CHARACTERISTICS 
3GET LBN/TRACK 

CLEAR REST OF WORD 
POINT TO CONVERT BLOCK 
sFOR CONVERT 

sSTARTING CLYLINDER 
CLEAR REST OF WORD 


E 
CLEAR FOR STORE 
sLOW ORDER ALWAYS 0 
CONVERT AND SEEK 
sPOINT TO ye Ate BLOCK 


| 

| 

WRITE | 
GET CURRENT TRACK 

SET TRACK FOR WRITE | 

STORE IN COMMAND BLOCK 

[POINT TO BUFFER | 

| 

| 

| 

| 

| 

| 


aco es - RETURNED IN R3 
STICK IN COMMAND BLOCK 

GET LOW ORDER HEADER 

STORE IN WRITE BLOCK 

GET HIGH ORDER 

zADD STARTING LBN BITS 

3SET HEADER 

STORE IN WRITE BLOCK 

GET DUMMY SDI POINTER 

POINT IN COMMAND BLOCK 
GET HEADER PREAMBLE 
‘eet DATA PREAMBLE 


UNIT 
sMAKE SURE POINTING AT BLOCK 
sWAIT FOR SECTOR PULSE 
WRITE SECTOR 

sMAX ? 

zYES = TRY SOME RECOVERY 
set ieee COUNT 


300 RETRY 

3GET CURRENT ERROR RECOVERY LEVEL 
IF NEGATIVE THEN FRIED 

71S THERE ONLY RECOVERY LEVEL 0 ? 
sYES - NO NEED TO ISSUE IT = JUST RETRY 
sTRY RECOVERY 

sFOR INIT 

sDECREMENT IT 

sRETRY 


:YUP = INCREMENT COUNTER 
s INCREMENT IT 


een - — “4 





SEQ 311 

UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 65-1 | 
RCT UPDATE OVERLAY (F4) 

$8 003527 114000 001501 CLR TMPTRY ZFOR RESET 

59 003531 104300 001500 001502 MOV RECOV, RECTMP 'GET RECOVERY LEVELS 

60 003534 104204 000731 MOV #ODUMMY , RG [FOR ADD | 

61 003536 104 03 001243 MOV #RCTEMT.R3 [FOR ADD | 

6@ 003540 02150 CALL DAD ‘POINT TO NEXT COPY 

63 003541 106500 001245 001246 CMP FCTCPY,NEXT1 SDONE THIS SECTOR ? 

64 003544 05 02 BNE RCTWLP [NO = WRITE NEXT FCT COPY 

65 003545 106305 001245 CMP FCTCPY,RS TERROR ON EVERY WRITE ? 

66 003547 013565 BEQ RCTERR ‘YUP = BIG TROUBLE 

67 003550 104303 001246 RCXLP: MOV NEXT1,R3 SANY REAPEATS ? 

68 003552 013563 BEQ RTDON ; 

69 003553 104204 000731 MOV #DDUMMY ,R4 :T0 GET IT BACK 

70 003555 104203 001243 MOV #RCTEMT.R3 :DITTO 

71 003557 021521 CALL DSUB 

72 003560 117400 001246 DEC NEXT1 ;SUB IT 

73 003562 003550 BR RCXLP TREPEAT 

74 003563 060022 RTDON: XFC UPDATE ‘LET HOST KNOW STILL ALIVE 

003564 000000 RETURN 
76 003565 104012 RCTERR: MOV R1,R2 :XFC ERROR CODE 
003566 104201 000017 MOV #15. ,R1 [RCT WRITE ERROR 


77 
78 003570 022542 CALL ERRMNT sERROR QUIT 
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001223 
000736 


000400 
006622 
007777 
100000 
000000 


000002 
000400 


001474 
001474 
000731 


000001 
000736 
001230 
001254 
000055 
001223 


000002 
000002 


000020 


001474 
901223 


XFLIP: 


XNOINC: 


XPNGRD: 


XEORCT: 


SEARCH FOR OPEN ENTRY IN RCT 


IN THIS SECTION THE BLOCKS 
THE SEARCH WITHIN BLOCKS IS 
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ATE OVERLAY (F4) 


R2 
WRFLG 
R 


OFFSET,R3 
R 


x 
RCTBUF+1(R5),R1 
#L0,R1 


LO, 
Tl 
#RC.FRE,R1 
XPRET 
R2,R5 
R2 


R5 ,R2 
XNOINC 


#2,R2 
#SECSI6,R2 


XAGAIN 


ADDRESS TO LOWEST 


RCTCNT 
RCTCNT,R3 
#DDUMMY , R4 
R3, (R4) 
R3,1(R4) 
R3,OFFSET 
#HOLD,R3 
DADD 
R4,BUFPNT 
#Hi,R1 


XPERR 
#2,RCTCNT 
#2 ,WRFLG 


XPNGRD 


R2 
#16.,R1 
R 
ERRMNT 


SAVE R2 
;CLEAR WRAP FLAG 
sFOR FLOP SET 

sGET OFFSET 

sMOV OFFSET INTO BUFF POINTER 
sADD FLOP VALUE 

;PAST ONE END (OR BOTH) 

sYUP = FLIP OTHER DIRECTION 
3GET HEADER CODE 

sCLEAR LOW ORDER 

sEND OF RCT ? 

bs ~ WRAP TO FIRST BLOCK 


SYUP = ALL DONE 
?GET FLIP VALUE 


sNEGATE IT 
31F NEGATIVE DON'T INC 
zADD TO NEXT VALUE 

DONE EVERY SLOT IN BLOCK ? 
sNOPE = TRY NEXT ONE 


E PING-PONGED BUT 
AR FROM HIGHEST BUFFER 


INC TO NEXT ONE 

FOR STORE 

zFOR ADD 

STORE BLOCK NUMBER 

sFOR RESETS 

;CLEAR HIGH WORD 

MAKE OFFSET AT BEGINNING 
POINT TO FIRST RCT LBN 
;GET LBN OF THIS RCT BLOCK 


STORE BLOCK NUMBER 
READ RCT OVERLAY 


[SEARCH THIS BLOCK 
*GET WRAP FLAG 

TIF BEEN HERE ONCE THEN RCT FULL 
; T BLOCK 

*READ IT AND CONTINUE 


sRESTORE R2 
SUCCESSFUL RETURN 
sRCT FULL 


:NO SUBCODE 
ERROR RETURN 


ee 


is +70 
SEQ 312) 


—.———— ee Oo OOOO] 
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Ertaas 
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SF 


SERS 
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000055 001154 


001254 


010000 


006621 
000400 
001477 
001501 


001501 


OCLOOP: 


READ11: 


101$: 


100$: 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 67 
RCT READ OVERLAY (H1) 


-SBTTL RCT READ OVERLAY (H1) 


DMOVLY H1,START 


READ A BLOCK OF THE RCT 


#1, CUROVL 
BUFPNT,R4 

R5 

#SCR,R3 
STCVE(R3) -R2 
#CONBLK,RO 
Ro.V1+T (ROD 
R2,V1(RO) 
LBNTRK(R3),R2 
#HIBYTE ,R2 
R2,V3(RO) 


(R4), 

o7 Py Qucne) 
ST.LBN,R3 
R3,RW.HI (RO) 
#RCTBUF , 
R3,RW.BUF (RO) 
#RWCMD RS 
CURTRK ,R1 


i 
R3,RW.CMD(RO) 
#ROBLK,R 


RO) ,R3 
CCF RS 


0 

CTBUF ,R2 

dC 

got (a) RS 

















FOR INIT 
3GET POINTER TO BLOCK NUMBER 
7CLEAR ERROR COUNTER 

sPOINT TO CHARACTERISTICS 
3GET STARTING CYLINDER 
;CLEAR REST OF WORD 

sPOINT TO CONVERT BLOCK 
sSTORE FOR CONVERT 

sFOR STORE 

sLOW ORDER ALWAYS 0 

3GET LBN/TRK 


CLEAR HIGH BYTE 
STORE IN CONVERT BLOCK 


sCONVCRT RCT BLOCK NUMBER AND SEEK 


PREPARE FOR READ SECTORS 
s:POINTER TO DUMMY SDI BLOCK 
TORE IN BLOCK 


; L 

sSTORE IN READ CMD BLOCK 

LOAD ADDRESS OF DATA BUFFER 
T IN COMMAND BUFFER 


3 E 

3LOAD SDI READ COMMAND 

3GET CURRENT HEAD NUMBER IN R1 
SET IT + A catenens 

3MAKE SURE POINTING AT BLOCK 
H K AS ONLY REQUEST 

sSTORE IN CMD BLOCK 

3SDI INTERCONNECT 

3SET NO REVECTORING 

3 FOR PULS 

ee SECTOR 

YES = TRY RECOVERY 

GET sre tys one 


scorul 
[YUP = CONSIDER GOOD 
“MAX 2 


[YES = TRY SOME RECOVERY 
SINC RETRY COUNT 








UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 67-1 
RCT READ OVERLAY (H1) 
5a 003155 003115 BR READ11 :D0 RETRY 
59 003156 104303 001502 1$: MOV RECTMP,R3 ‘GET CURRENT ERROR RECOVERY LEVEL 
60 003160 073172 BMI SIF NEGATIVE THEN FRIED 
61 003161 115000 001500 TST RECOV t1S THERE ONLY RECOVERY LEVEL 0 ? 
62 003163 013169 BEQ 3$ ZYES = NO NEED TO ISSUE IT = JUST RETRY 
63 003164 022571 CALL  ERRHND STRY RECOVERY 
64 003165 114000 001501 3$: CLR TMPTRY ‘FOR INIT 
65 003167 117400 001502 DEC RECTMP SDECREMENT IT 
66 003171 003115 BR READ11 SRETRY 
67 003172 2$: 
68 003172 115405 INC RS ; INCREMENT BAD COUNTER 
69 003173 106305 001245 CMP FCTCPY,RS ALL ? 
70 003175 013331 BEQ ORF TAL [YUP = ALL OVER 
71 003376 104203 001243 MOV #RCTEMT,R3 ;S1ZE OF TABLE = R4 => BLOCK NUMBER 
72 003200 021503 CALL DADD ADD TO POINT TO NEXT COP 
73 003201 114000 001501 CLR TMPTRY RESET RETRY COUN 
74 003203 14300 001500 001502 MOV RECOV, RECTMP :DITTO RECOVERY LEVELS 
003206 003062 BR OCLOOP ‘BRANCH BACK 
76 003207 102$: 
003207 114000 001501 OCDONE: CLR TMPTRY ZFOR RESET 
78 003211 104300 001500 001502 MOV RECOV, RECTMP 'GET RECOVERY LEVELS 
003214 115005 TST R5 TANY ERRORS ? 
003215 013322 BEQ RLDONE :NO 
81 003216 104203 001241 MOV #FCTEMT,R3 [SIZE OF TABLE 
82 003220 021521 CALL OSUB :GET BACK TO PREVIOUS COPY 
83 003221 022665 CALL  CVTSK [CONVERT AND SEEK 
00322 104207 990721 MOV #URBLK RO sPOINT TO COMMAND BLOCK 
85 4 104203 122400 MOV #wR :6 ITE COMMAND 
86 003226 104308 001113 MOV CURTRK.R2 [GET CURRENT TRACK 
87 003230 10102 BIS R2,R3 [SET TRACK FOR WRITE 
88 003231 100673 000004 MOV RS. Ril CHD(RO) [STORE IN COMMAND BLOCK 
89 003233 104203 006621 MOV #RecT [POINT TO BUFFER 
90 003235 100673 000001 MOV R3 RUE OF CRO) :STICK IN COMMAND BLOCK 
91 003237 104143 MOV (R4)R GET LOW ORDER HEADER 
92 003240 100673 000002 MOV R3 RU.LOWCRO) [STORE IN WRITE BLOCK 
93 003242 104643 000001 MOV 1(R4)R [GET HIGH ORDER 
003244 105303 001323 ADD ST.LBN,R3 ADD STARTING LON BITS 
95 003246 100673 000003 MOV R3,RW.HI CRO) ‘STORE IN WRITE BLOCK 
003250 104203 000726 MOV #HSLIM-1,R3 3GET DUMMY SDI POINTER 
97 003252 100673 000005 MOV RS. RW. DUACRO) T IN COMMAND BLOCK 
98 003254 104303 001321 WRIT12: MOV HPREA,R [GET HEADER PREAMBLE 
99 003256 104304 001322 MOV DPREA.R4 [GET DATA PREAMBLE 
100 003260 104302 000740 MOV UNIT, R2 3SET UNIT 
101 003262 104207 000721 MOV #WRBLK,RO MAKE SURE POINTING AT BLOCK 
102 003264 101207 100000 BIS #B1T15.RO 3SET NO REVECTORING 
103 003266 060012 XFC SIP WAIT FOR SECTOR PULSE 
104 003267 06000 KFC WRITE TWRITE SECTOR 
105 003270 115001 TST R1 SANY ERROR ? 
106 003271 013315 BEQ 2$ :NO ~ SKIP RETRY 
107 003272 106300 001477 001501 CMP RETRY, TMPTRY MA 
108 003275 013301 BEQ 1$ [YES = TRY SOME RECOVERY 
109 003276 115400 001501 INC TMPTRY 3 INC RETRY COUNT 
110 003 005254 BR WRIT12 ETRY 
111 003301 104303 001502 1$: MOV RECTMP,R3 iGET CURRENT ERROR RECOVERY LEVEL 
11 003303 073315 BMI 2$ IF NEGATIVE THEN FRIED 
113 003304 115000 001500 TST RECOV [1S THERE ONLY RECOVERY | LEVEL 0 ? 
114 003306 013310 BEQ 3$ SYES = NO NEED TO ISSUE IT ~ JUST RETRY 





UD 
RC 


—> 
wm 


M = UD 

READ OVERLAY (H1 
115 003307 022571 
| 003310 114000 
117 003312 117400 
118 00 He 003254 
119 003315 

120 O0ag!2 117405 
121 003316 104300 
122 003321 003207 
123 003322 

124 003330 

125 003331 104012 
126 003332 104201 
127 003334 022542 


001500 001502 


000016 


3$: 


2$: 


RLDONE : 
ORF TAL: 








A Spey by, DMACR X04.01 23-AUG-82 14:02:32 PAGE 67-2 


RS 
RECOV, RECTMP 
OCDONE 


R1,R2 
#14. ,R1 
ERRMNT 


poetronesnnnaeneiaiainetessnancictroanananaiteelinis 
SEQ 315| 

| 

:TRY RECOVERY | 
FOR INIT | 
:DECREMENT IT | 
| 

;DEREMENT COUNTER | 
! 


;GET RECOVERY LEVELS 
7SEE IF ANY MORE TO DO 


; ROR CODE | 
RCT READ ERROR 
ERROR RETURN 

| 





UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 68 
RCT READ OVERLAY (H1) 


1 

¢ ; .SBTTL FCT=>RCT CONVERSION OVERLAY (F5) 

4 ; CONVERT FCT INTO RCT 

6 oe 

{ 003335 DMOVLY F5,START 

10 

11 003023 003166 : JMP START2 ;SKIP SUBROUTINES 


a a + 


SEQ 317 
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FCT=>RCT CONVERSION OVERLAY (F5) 


1 3 
¢ : COMPUTE RCT ADDRESS FOR GIVEN LBN 
4 003024 115001 HASH: TST R1 ZNEED TO COMPUTE PRMARY RBN ? 

5 003025 073055 BMI HKIP1 <NO = SKIP IT 

’ 003026 104207 001053 MOV #SCR,RO ‘POINT TO CUBUNIT CHARACTERISTICS 

003630 022730 CALL PRIM SCOMPUTE PRIMARY RBN 

8 003031 104200 000200 000736 HKIP: MOV #128., TEMP :DIVIDE BY 128 TO GET BLOCK NUMBER 

9 003034 114000 00073 CLR ss TEMP +4 FOR STORE | 
10 003036 104300 00115¢ 000731 MOV REVRBN, DDUMMY 'GET PRIMARY RBN 
11 003041 104300 001153 000732 MOV REVRBN+1 ,DDOUMMY+1 [GET HIGH ORDER 

12 003044 104204 0007 MOV #ODUMMY , RG ‘FOR DIVIDE 
13 003046 104203 0007 MOV #TEMP,RS :DITTO 
14 003050 021565 CALL DDIV :DDUMMY=RCT BLOCK NUMBER 
15 : TEMP=OF FSET | 
16 003051 104131 MOV (R3) ,R1 :GET OFFSET 
17 00305¢ 105011 ADD SRA SMULTIPLY BY 2 

18 003053 100131 MOV R1,(R3) TSTORE BACK 

19 003054 000000 RETURN 
20 003055 104140 001152 HKIP1: MOV (R4) ,REVRBN ZFORDIVIDE SETUP 
21 003057 104640 000001 001153 MOV 1(R45 ,REVRBN+1 :DITTG 
22 003062 107300 001324 001153 SUB ST.RBN, REVRBN¢1 ‘SUBTRACT STARTING RBN BITS 
23 003065 003031 BR HKIP :DO DIVIDE 
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SEARCH FOR OPEN ENTRY IN RCT 


PNG: CLR WRFLG 


: CLR 
MOV oy ae’ 9 
: MOV R3,R 
ADD R2,R5 
BIT #BITB,RS 
BNE FLIP 
MOV RC TBUF+1(R5),R1 
BIC #L0,R1 
CMP #RC.NUL,R1 
BEQ 
CMP #RC.FRE,R1 
BEQ PRET 
MOV R2,R5 
CLR R2 
SUB RS,R2 
BMI NOINC 
ADD #2,R2 
CMP #SECSI6,R2 
BNE PAGAIN 


cu WRAP FLAG 
An SET 


‘Gel OF FSET 
MOV OFFSET INTO BUFF POINTER 


ZADD FLOP a 
1 ONE END (OR BOTH) 
‘YUP - FLIP OTHER DIRECTION 
7GET HEADER CODE 
CLEAR LOW ORDER STUFF 
sEND OF 
3; YUP = ,WRAP to FIRST BLOCK 
YUP = ALL DONE 
2GET FLIP VALUE 
sNEGATE IT 
IF a yt DON'T INC 
ADD 70 NEXT VALUE 
DONE EVERY el IN BLOCK ? 
;NOPE = TRY NEXT ONE 


IN THIS SECTION THE BLOCKS ARE PING-PONGED BUT 
THE SEARCH WITHIN BLOCKS IS LINEAR FROM HIGHEST BUFFER 


ADDRESS TO LOWEST 


INC RCTCNT 
MOV RCTCNT,R3 
MOV #ODUMMY ,R4 
MOV R3, (RG) 
CLR DDUMMY+1 
CLR OFFSET 

V #HOLD ,R3 
CALL DADD 

V R4 BUF PNT 

V 1,R1 


R NGBLK 
MOV WRFLG,R3 
BNE PERR 
MOV #2,RCTCNT 
MOV 2 ,WRFLG 
BR GRD 





#16. oR1 
ERRMNT 


INC TO NEXT ONE 
zFOR STORE 

3FOR ADD 

STORE BLOCK NUMBER 
3FOR RESETS 

sMAKE IT AT Z 


: ERO 

POINT TO FIRST RCT LBN 

:GET LON OF THIS RCT BLOCK 
STORE POINTER TO BLOCK NUMBER 
zRCT READ OVERLAY 


SEARCH THIS BLOCK 
“GET WRAP FLAG 


:1F BEEN HERE ONCE THEN RCT FULL 
FOR FIRST RCT BLOCK 

MAKE WRAP FLAG NON-ZERO 

READ IT AND CONTINUE 


SUCCESSFUL RETURN 
R5=OF FSET 


FULL 
;NO SUBCODE 


TERROR RETURN 


7 


SEQ 318, 


Oe - - “5 


SEQ 319) 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 71 | 
FCT=>RCT CONVERSION OVERLAY (F5) 


1 : | 
¢ : THIS OVERLAY UPDATES THE RCT WITH THE SECTORS 
‘ ; IN THE ERRBUF BUFFER 
é | 
§ 003166 START2: 
8 003166 104200 000014 001154 FCTRCT: MOV #F5, CUROVL :GET OVERLAY NUMBER 
9 003171 104303 001113 MOV CURTRK,R3 7GET CURRENT TRACK 
10 003173 PUSH = R33 : IT 
11 003174 106303 001126 MOV CYLNUM,R3 [GET LOW ORDER CYLINDR 
1 003176 PUSH R TSAVE FOR RESTORE 
13 003177 104303 001127 MOV CYLNUM+1 ,R3 :GET HIGH ORDER 
14 003201 PUSH RB SSAVE FOR RESTORE | 
15 003202 104204 001257 MOV #FCTCNT RG [FOR SUB | 
16 003204 104203 001463 MOV #ONE ,R3 :DITTO 
17 003206 021521 CALL  DSUB :SUB TO GET CURRENT FT BLOCK NUM 
18 003207 104143 MOV (R4) ,R3 “GET IT 
19 003210 PUSH RB [FOR LATER RESTORE | 
20 003211 114000 001257 CLR FCTCNT [CLEAR FOR INIT | 
1 003213 104200 004535 001254 MOV #RDBUF ,BUF PNT [POINT TO BUFF | 
22 003216 104201 000017 MOV #F6,R1 [READ A BLOCK OF THE FCT | 
23 003220 022435 CALL TEXECUTE IT 
24 003221 104204 004535 V #RDBUF .R4 [MAKE SURE POINT TO IT 
25 003223 104640 000016 001263 MOV C512(R4) ,MNCNT [GET COUNT OF USED ENTRIES | 
26 003226 104200 000200 001451 MOV #128. ,SECCNT SENTRIES IN A FCT SECTOR | 
37 903251 104300 0011 34 901250 MOV LBNLBN,HOLD :GET LOW ORDER COUNT OF LBN'S | 
8 00 104300 001135 001231 MOV LBNLBN+1,HOLD+1 :GET HIGH ORDER | 
29 003237 104203 001472 MOV ATOTRCT,R3 [FOR SUBTRACT 
30 003241 104204 001230 MOV  #HOLD,R4 :DITTO | 
31 003243 021521 CALL OS :GET STARTING RCT LBN 
32 003244 104201 000022 MOV #F7,R1 [RCT INIT OVERLAY | 
33 003246 022435 CALL PAGE INIT RCT 
34 003247 104303 001263 MOV MNCNT,R3 [GET COUNT 
35 003251 013733 BEQ FCTSP [QUIT IF NO ENTRIES | 
36 003252 104200 004535 001254 FBEGIN: MOV #RDBUF ,BUF PNT [POINT TO BUFFER | 
37 003255 104201 000017 MOV #F6,R1 [FCT READ OVERLAY 
38 003257 022435 CALL PAG 700 I 
39 003260 104200 004535 001256 MOV #ROBUF ,FCTPTR [MAKE SURE POINT TO TI 
40 003263 104 001256 MOV FCTPTR.RG [FOR USE | 
41 003265 104140 001111 FBEG2: MOV (R4) , CURPBN [GET LOW ORDER PBN | 
42 003267 104640 000001 001112 MOV 1(R45, CURPBN+1 [GET HIGH ORDER 
43 003272 104201 000044 MOV #G5,R1 SOVERLAY TO CONVERT FORM PBN TO OTHER BN 
44 003274 022435 CALL PAGE SEXECUTE IT 
45 003275 104303 001115 MOV CURBN+1,R3 :GET HIGH ORDER CONVERTED BLOCK NUM 
46 003277 105203 007777 BIC 40, [CLEAR ALL BUT HEADER 
47 003301 10620 000000 CMP #HD.LBN,R3 [1S 17 AN LBN ? | 
48 003303 053461 BNE NOLBN :NO = SKIP D 
49 003304 104205 001114 MOV #CURBN,R3 ‘CURRENT BAD BLOCK 
50 003 104204 001120 MOV #HOLDBN, R4 SFIRST BLOCK OF RCT AREA 
51 00331 O21625 CALL DCMP SIN RCT 2? 
5 003311 0 36 1 BPL xY21 [YUP = IF COMPARE YIELDS PLUS 
53 003312 104204 001114 MOV #CURBN,R4 ‘POINT TO BLOCK R 
54 003314 023024 CALL H [COMPUTE RCT ENTRY 
55 003315 104143 MOV (R4) RB [GET RCT BLOCK 
56 003316 105208 000002 ADD #2 .R5 [ADD TO GET BY FIRST 2 BLOCKS 
57 003320 10014 MOV R3,(R4) [STORE BACK 








UDAFM = UDA FORMATTER DMACR X04.01 2%-AlIG-82 14:02:32 PAGE 71-1 
FCT=>RCT CONVERSION OVERLAY (F5) 


58 005 1 104030 001474 
00 ; etait 001230 

60 O08 02150 

61 003326 104040 001254 

o¢ 0033 isco! 000055 

SB Fee ua 

65 003 33 104303 0007 

66 003337 105035 

67 003340 104653 

68 003342 103203 007777 

69 003344 10620? 

70 003346 013637 

71 003347 106203 040000 

72 003351 013616 

73 003352 104150 000733 

74 003354 104670 

75 003357 104303 001114 

76 003361 100153 

77 003362 104303 001115 

78 003364 107303 001323 

79 003366 103203 170000 

80 003370 101203 020000 

81 003372 100653 1 

82 003374 Age 90 000400 

Se He onze 

85 b0s40e 104693 1 

86 003404 IOs 100000 

87 003406 10062 

88 oo i8 106202 004535 

89 003412 053431 

90 003413 104300 000731 

91 003416 104300 000732 

92 003421 023766 

93 003422 104300 001116 

94 tng i 104300 001117 

97 003433 104123 

98 003434 103203 100000 

99 003436 100123 

100 003437 024027 

1 SE? ES ss 

108 003443 105054 

104 003444 106406 000733 

105 003446 10412 

106 003447 100143 

107 003450 104623 000001 

108 003452 103203 170000 

i Sees ise Se 

111 003460 003670 

16 003461 106203 060000 

113 003463 053671 

114 003464 1043503 001115 


[iS tees” se | a aes BR Ee Be a 


R3,RCTCNT 
7s lla 


R4, BUF PNT 
#Hi,R1 
PAG 
#RCTBUF RS 
OFFSET, R3 
R35,R 

1(R5) ,R3 
#LO,R 
#RC.FRE,R3 
FILLIT 
#RC.UNU,R3 
BAD 

(RS), TEMP2 
1(R55, TEMP2+1 
CURBN,R3 
R3, (R5 
CURBN+1 ,R3 

T 3 


#DLL ,FLAG 
FCTSKP 
FCTPTR,R2 
1(R2),R3 
#PRAY,RS 
R3,1(R2) 
#ROBUF ,R2 
FCTSK1 
DDUMMY , CU 
FI 
CURXBN, DOUMM 


Y 
CURXBN*1 ,DDUMMY+1 
FCTSKP 


PNGPN 
#RCTBUF ,R4 


xy 
#HD.RBN,R3 
xy 
CURBN+1,R3 


CURXBN 
DDUMMY+1 , CURXBN+1 
XFCT 


sSAVE FOR LATER PNGPNG 
;FOR ADD 


[TO GET LON OF RCT BLOCK 
[STORE POINTER TO BLOCK NUMBER 
{RCT READ OVERLAY 


sPOINT TO ENTRY 

3GET HIGH ORDER 

:CLEAR ALL BUT HEADER 

3 T FREE ? 

sYES = FILL IT 

SUNUSABLE RBN ? 

sYES = MUST BE SECONDARY 
sELSE SWITCH 

sHIGH ORDER 

3GET NEW RESIDENT LOW ORDER 
sSTORE IN RCT 

3GET HIGH ORDER 

;SUBTRACT STARTING LBN BITS 
sCLEAR THE HEADER 
sMARK AS PRIMARY 

sSTORE IT 

sDID WE CREATE THE FCT ? 

3NO - THEN DON'T CHANGE IT 

:GET POINTER TO CURRENT FCT BLOCK POS 
;GET HIGH ORDER FCT ENTRY 

sMAKE IT SECONDARY 

sSTORE IT BACK 

ot AL FIRST ENTRY IN THE BLOCK 
he BLOCK NUMBER 

sYUP = GOT SOME GYRATIONS TO DO 
sRESTORE RCT BLOCK NUMBER 


GH ORDER 
sCLEAR Sime IF SET 


sWRITE OUT CHARNGED BLOCK 
sFIND IT A NEW HOME 
POINT TO BUFFER 

sADD OFFSET 

sPOINT TO OLD RESIDENT 
GET LOW ORDER 

: IT IN 

2GET HIGH ORDER 

sCLEAR HEADER 

2 MARK = menmeene 
2SKIP_TO END 


3NO = THEN DON'T CARE ABOUT IT 
ZGET HEADER 


UDAFM 
FCT=>R 





C 

115 00 

119 00 7 
117 003472 
118 003474 
119 00 6 
120 00347 

121 003500 
1s OO e208 
123 00350 

124 003505 
125 003507 
126 003510 
127 003512 
128 003514 
129 003515 
130 003517 
131 003521 
132 003522 
133 003524 
134 003526 
135 003530 
136 003531 
137 003533 
138 003535 
139 003537 
140 003540 
141 003543 
142 003546 
143 003550 
144 003552 
145 003554 
146 003556 
147 003557 
148 003560 
149 003561 
150 003562 
151 003564 
13¢ 003565 
153 003567 
154 003570 
155 003571 
156 003573 
157 003575 
158 003577 
159 003601 
160 003604 
161 003605 
16¢ 003607 
163 003611 
164 003612 
165 003614 
166 003615 
167 tt} 
168 00361 

169 003621 
170 tnt y4 
171 003624 


So 
Ww 
Oo 
Ww 


wees 
er ee te 


FRVERSSR 
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O23 Oo tt tO ot = 
HAR AR REE 
SF &n~ 
oofroou owe 


ed BO ed ed ed td ed od 
MUI 


g 
Saceaken 


— 
& 
Ss it) 
MSQoouunNuW 
NWO O OWWIW OWI 


wes 
= 


Sisrsesass 
row 


On 2 2 
oo 
= 
™ 


— td os 
=O 
aN 
_ 


Ssooons 
orcs 
SEES 


RR 


17 
00111 
177777 
001114 
000002 


001474 
001230 
001254 
000055 
006621 
000736 
000001 
007777 
000000 


170000 


000733 
000734 


001220 


RRPL : 


FCTSLP: 
BADRBN: 


UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 71-2 
T CONVERSION OVERLAY (F5) 


#HD.CLR,R3 
R3,CURBN+1 


#=1,R 
#CURBN,R4 
HASH 

(R4) R3 
#2,R3 
R3,(R4) 
R3,RCTCNT 
#HOLD ,R3 
DADD 


R4 ,BUFPNT 
#Hi Ri 


AGE 
#RCTBUF RS 
OF FSET.R4 


R4, 

1(R5) ,R3 
#LO,R 
#RC.FRE RS 
RRPL 
#HD.CLR,R3 


#RC..UNU,R3 

R3,1(R55 

xyv2 
( 
( 


vo 
a 


’ E 
a CLR,R3 


#L0,R3 
R3,1(R5) 
R3 


R3,(R5) 
a al 


NGPNG 
#RCTBUF ,R4 
R5,R4 
#TEMP2,R2 
(R2),R 


R3, 
#OLL,FLAG 
FCTSLP 
FCTPTR,R2 
R 
(RO) ,R3 
#PRAYR3 
R3, (RO) 
xv? 
PNGPNG 
#RCTBUF R4 
F5,R4 
#CORBN,R2 
(R2) R$ 


RS), TEMP2 
RS) , TEMP2+1 


: OCK NUMBER 
GET RCT BLOCK AND OFFSET 
3GET RCT BL 

sADD TO Sr BY 2 BLOCKS 


STORE 
SAVE FOR LATER PNGPNG 
:TO GET LBN OF RCT BLOCK 


SSTORE POINTER TO BLOCK NUMBER 
[RCT READ OVERLAY 


sPOINT TO BLOCK 
2GET OFFSET 

sPOINT TO ENTRY 

:GET HIGH ORDER 

sCLEAR ALL BUT HEADER 

zIS IT FREE ? 

sNO_ = RELOCATE CURRENT RESIDENT 
CLEAR THE HEADER 

;MARK AS — 


POINT TO ENTRY 
sPOINT TO OLD RESIDENT 
fl LOW ORDER 


CLEAR HEADER 
3 MARK Ay Secemany 


sSTORE I 
2DID WE CREATE THE FCT ? 
;NO = ON'T CHANGE IT 


GH ER 
3CL . pares IF SET 
:G0 TO END 
sFIND A_NEW SLOT 
sPOINT TO BUFFER 
POINT TO ENTRY 
sPOINT TO OLD RESIDENT 
2GET LOW ORDER 


. 7 


SEQ 321) 


| 
| 
{ 
' 


A = - - -5 


SEO 322) 


228 ; 





UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 71-3 | 
FCT=>RCT CONVERSION OVERLAY (F5) 

172 003625 100143 MOV R3, (RG) :PUT IT IN | 

173 003626 104623 000001 MOV =: 1(R2) ,RB :GET HIGH ORDER | 

174 003630 103203 170000 BIC #HD.CLR,R3 [CLEAR HEADER 

175 003632 101203 030000 BIS #RC.SND,R3 [MARK AS SECONDARY 

176 003634 100643 000001 MOV RS 1 (R45 i STORE IT 

177 0036 00567 BR [G0 TO END 

178 003637 104 001114 FILLIT: MOV CURBN A R3 :GET LOW ORDER BN 

179 003641 10015 MOV [PUT IN RCT 

180 003642 104303 001115 MOV cme) R3 [GET HIGH ORDER AND HEADER 

181 003644 107303 001323 SUB $T.LBN,R3 SSUBTRACT STARTING LBN BITS 

182 003646 103203 170000 BIC SHOCeLR RS [CLEAR HEADER | 

183 003650 101203 020000 BIS #RC.PRV.R3 ZMARK AS PRIMARY 

184 003652 10065 000001 MOV R3,1(R55 :STORE IN RCT 

185 003654 102200 000400 001220 BIT #DLL, FLAG :DID WE CREATE THE FCT ? 

186 003657 013670 BEQ XYZ [NO = THEN DON'T CHANGE IT 

187 003660 104303 001256 MOV Fcterr R3 ‘Ger POINTER TO FCT ENTRY 

188 003662 104634 000001 MOV R3) RG 'GET HIGH ORDER 

189 003664 101204 100000 BIS pPRAY Re [SET AS PRIMARY 

190 003666 100634 000001 MOV R4,1(R3) SSTORE BACK 

191 003670 024027 XYZ: CALL  RCTWRT :WRITE OUT BUFFER 

192 003671 105200 2 001256 XvZi: ADD #2,FCTPTR [POINT TO TO NEXT ENTRY 

193 003674 117400 00126 DEC MNCNT [DEREMENT IT 

194 003676 013721 BEQ F RDONE SIF ZERO THEN DONE 

195 003677 117400 001451 DEC SECCNT SDECREMENT IT | 

196 003701 053715 BNE FRSKP IF STILL IN BLOCK = CONTINUE 

197 003702 102200 000400 001220 BIT #OLL FLAG [DID WE CREATE THE FCT ? 

198 003705 01595 BEQ FBEGIN [NO = THEN DON® T CHANGE IT 

199 003706 104 004535 001254 MOV #ROBUF ,BUF PNT [POINT TO BUFFER 

200 003711 104201 000030 MOV #F9,R1 FCT URITE OVERLAY 

201 003713 022435 CALL _—— PAGE [EXECUTE iT 

202 003714 003252 BR FBEGIN [AND GET A NEW ONE 

203 003715 104304 001256 FRSKP: MOV FCTPTR,R4 ELSE GET CURRENT POINTER 

204 00371 0022 XFC UPDATE [LET HOST KNOW STILL ALIVE 

205 003720 003265 BR FBEG2 ZAND DO NEXT ENTRY | 

206 003721 102200 000400 001220 FRDONE: BIT #DLL, FLAG [DID WE CREATE THE FCT ? 

207 003724 013733 BEQ F [NO = THEN DON'T CHANGE IT | 

208 003725 104200 004535 001254 MOV #ROBUF ,BUF PNT [POINT TO BUFFER | 

209 003730 104201 000030 MOV #F9,R1 3WRITE LAST FCT BLOCK 

210 003732 022435 CALL PAGE 

211 003733 FCTSP: POP R3 ?GET CURRENT FCT BLOCK NUM 

212 003734 104030 001257 MOV R3,FCTCNT SRESTORE IT 

213 104200 005152 001254 MOV #PBNBUF , BUFPNT SRE-READ IT IN CASE OF HEADER CHANGES 

214 003741 104201 000017 #F6,R1 3FCT READ OVERL 

215 003743 022435 CALL PAGE D0 IT 

216 003744 POP R3 3GET HIGH ORDER CYLINDER 

217 003745 104030 001127 MOV R3,CYLNUM+1 ORE IT 

218 003747 104030 001100 MOV ng ISEEKe2 ?STORE IN SEEK COMMAND 

219 003751 POP :GET LOW ORDER 

220 003752 104030 001126 MOV 4 »CYLNUM ORE IT | 

221 003754 104030 001077 MOV R3, 1SEEK+1 [STOR EEK COMMAND 

222 00375 POP R 3GET URRENT TRACK 

223 003757 104030 001113 MOV TRK IT 

224 003761 104300 001460 001101 MOV CORGRR. ISEEK+3 tRESTORE GROUP | 

225 003764 022242 CALL SEEK SRESTORE TO PREVIOUS CYLINDER 

226 003765 000000 RETURN 

ee? 
| 
| 
| 


—_——_— eee 


SEQ 323 





UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 71-4 
FCT=>RCT CONVERSION OVERLAY (F5) 


29 : THIS ROUTINE FIXES UP THE PREVIOUS BLOCK 

30 : OF THE FCT. IT CLEARS THE PRIMARY FLAG OF THE 
331 : LAST ENTRY 
238 003766 104204 001257 FIXFCT: MOV #ECTCNT,RG ZFOR SUBTRACT 

003770 104203 001465 MOV #TWOC RS SDOUBLE WORD OF 2 

35 003772 021521 CALL DSUB :SUBTRACT TO GET BACK TO RIGHT NUM 
36 00377 104200 007321 001254 MOV #IMAGE ,BUF PNT SUSE IMAGE BUFFER 
237 003776 104201 000017 MOV #F6,R1 [FCT READ OVERLAY 
238 004000 022435 CALL _—~PAGE SREAD THE BLOCK 
239 004001 104203 007321 MOV #IMAGE ,R3 [POINT TO BUFFER 
240 004003 105203 000377 ADD #255. ,R3 ‘POINT TO LAST ENTRY 
241 004005 104632 000001 MOV 1(R3) .R2 'GET HIGH ORDER 
242 004007 103202 100000 BIC #PRAY Re [CLEAR FLA 
243 004011 100652 000001 MOV R2,1(R3) SSTORE IT BACK 
244 004013 104200 007321 001254 MOV # IMAGE BUF PNT [STORE BUFFER POINTER 
245 004016 104201 000030 MOV #F9O,R1 FCT WRITE OVERLAY 
246 004020 022435 PAGE [WRITE IT B 


CALL ACK OUT 
247 004021 DUBINC FCTCNT :GET FCTCNT BACK TO NORMAL 
248 004026 RETURN 


| 


—$———$ — — - - “4 


SEQ 324) 
UDAFM = UDA FORMATTER DMACR xX04.01 23-AUG-82 14:02:32 PAGE 72 
FCT=>RCT CONVERSION OVERLAY (F5) 





| 
1 





¢ : WRITE AN RCT BLOCK | 
; : DDUMMY = BLOCK NUMBER TO BE WRITTEN 
4 | 
5 004027 114005 RCTWRT: CLR RS ;CLEAR ERROR COUNTER | 
6 004030 104050 001246 MOV R5,NEXT1 ZINIT NEXT COPY COUNTER | 
7 004632 104204 000731 MOV #ODUMMY ,R4 ZPOINT TO RCT LBN 
8 004034 104203 001053 RCTRLP: MOV #SCR,R3 ZPOINT TO CHARACTERISTICS 
9 004036 104207 001424 MOV #CONBLK RO sPOINT TO CONVERT BLOCK 
10 004040 104632 000011 MOV LBNTRK(R3) ,R2 7GET LBN/TRACK | 
11 004042 103202 177400 BIC #HIBYTE ,R2 ZCLEAR REST OF WORD | 
12 004044 100672 000004 MOV R2,V3(RO) ZFOR CONVERT 
13 004046 104632 000001 MOV STCYL(R3) ,R2 ZSTARTING CLYLINDER 
14 004050 103202 007777 BIC #L0, ZCLEAR REST OF WORD 
15 004052 100672 000001 MOV R2,'"141(RO) STORE 
16 004054 114002 CLR R2 ZFOR STORE 
17 004055 100672 000000 MOV R2,V1(RO) ;LOW ORDER ALWAYS 0 
18 004057 022665 CALL = CVT Sk ZCONVERT AND SEEK 
19 004060 104207 000721 MOV #WRBLK RO ZPOINT TO COMMAND BLOCK 
20 004062 104203 122400 MOV #WRCMD,R3 3GET WRITE COMMAND 
21 004064 104302 001113 MOV CURTRK,R2 3GET CURRENT TRACK 
22 004066 101023 BIS R2,R3 ZSET TRACK FOR WRITE 
23 004067 100673 000004 MOV R3,RW.CMD(RO) ZSTORE IN COMMAND BLOCK 
24 004071 104202 21 MOV #RCTBUF ,R2 ZPOINT TO BUFFER 
25 004073 022600 CALL  CEDC ;COMPUTE EDC = RETURNED IN R3 
26 004074 100623 000400 MOV R3,RW.EDC(R2) ZSTORE IT 
27 004076 10067¢ 000001 MOV R2,RW. BUF (RO) ZSTICK IN COMMAND BLOCK 
28 004100 10414 MOV (R4) LR 7GET LOW ORDER HEADER 
29 004101 100673 000002 MOV R3,RW.LOW(RO) ZSTORE IN WRITE BLOCK 
30 004103 104643 000001 MOV 1(R4) ,R3 7GET HIGH ORDE 
31 004105 105303 001323 ADD ST.LBN,R3 ZADD STARTING LBN BITS 
32 004107 101203 000000 BIS #HD.LBN,R3 ZSET HEADER 
33 004111 100673 000003 MOV R3,RW.HI (RO) : STORE IN WRITE BLOCK 
34 004113 104203 000726 MOV SLIM-1,R3 3GET DUMMY SDI POINTER | 
35 004115 100673 000005 MOV R3,RW.DUM(RO) ;POINT IN COMMAND BLOCK 
36 004117 104303 001321 WRITE3: MOV HPREA,R3 7GET HEADER PREAMBL | 
37 004121 104304 001322 MOV DPREA,R4 7GET DATA P 
38 004123 104502 000740 MOV UNIT,R2 7SET UNIT | 
39 004125 104207 000721 MOV #WRBLK RO sMAKE SURE POINTING AT BLOCK 
40 004127 101207 100000 BIS #BIT15, 7SET NO REVECTORING 
41 004131 060012 XFC SIP sWAIT FOR SECTOR PULSE 
42 004132 060003 XFC WRITE ZWRITE SECTOR 
43 004133 115001 TST 1 ZANY ERROR ? 
44 004134 014161 BEQ RWGOOD : | 
45 004135 106300 001477 001501 CMP RETRY, TMPTRY gMAX ? 
46 004140 014144 BEQ 1$ sYES = TRY SOME RECOVERY | 
47 004141 115400 001501 INC TMPTRY ZINC RETRY COUNT 
48 004143 004117 BR WRITES 700 RETRY 
49 004144 104303 001502 1$: MOV RECTMP,R3 7GET CURRENT ERROR RECOVERY LEVEL 
50 004146 074160 BMI $ zIF NEGATIVE THEN FRIED 
51 004147 115000 001500 TST RECOV 31S THERE ONLY RECOVERY LEVEL 0 ? 
52 004151 014153 BEQ $ sYES = NO NEED TO ISSUE IT = JUST RETRY 
53 004152 022571 CALL § ERRHND ZTRY RECOVERY 
54 004153 114000 001501 3$: CLR MPTRY 7FOR INIT 
55 004155 117400 001502 DEC RECTMP SDECREMENT IT 
56 004157 004117 BR WRITES ;RETRY 
57 004160 2s: | 
| 
| 


eee SSR 


SEQ 325) 

UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 72-1 
FCT=>RCT CONVERSION OVERLAY (F5) | 
| 





58 004160 115405 INC R5 :YUP = = COUNTER 
59 004161 115400 001246 RWGOOD: INC NEXT1 s INCRE MENT IT 
60 004163 114000 00150 CLR TMPTRY RESET 
61 004165 104300 001500 001502 MOV RECOV, RECTMP IGET RECOVERY LEVELS 
$e 004170 104204 000731 MOV #DDUMMY , R4 FOR ADD 
004172 104203 001243 MOV #RCTFMT RS 3FOR ADD 
64 004174 021503 CALL DADD sPOINT TO NEXT COPY 
65 004175 106300 001245 001246 CMP FCTCPY ,NEXT1 DONE THIS SECTOR ? 
66 004200 054034 BNE RCTRLP NO = WRITE NEXT uct COPY 
67 004201 106305 001245 cMP FCTCPY,RS ;ERROR ON EVERY WRITE ? 
68 004203 014220 BEQ RCWERR YUP = BIG TRO 
69 004204 104305 001246 RCFXLP: MOV NEXT1,R3 ZANY REAPEATS” ? 
70 004206 014217 BEQ RWTOON 
71 004207 104204 000731 MOV #ODUMMY ,R4 10 GET IT BACK 
72 004211 104203 001243 MOV #RCTFMT,RS DITTO 
73 004213 021521 CALL DSUB 
74 004214 117400 001246 DEC NEXT1 7SUB _IT 
75 004216 004204 BR RCFXLP sREPEAT 
76 004217 000000 RWTDON: RETURN 
77 004220 104012 RCWERR: MOV R1,R2 :XFC ERROR CODE 
78 004221 104201 
004223 022542 CALL ERRMNT ERROR RETURN 


| 
| 
| 
: 
{ 
| 
000017 MOV #15.,R1 ‘RCT WRITE ERROR 
| 
| 
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RCTINI: 


RCLP: 


6$: 


RCINLP: 
RCLP2: 


.SBTTL RCT 
DMOVLY F7, 

INITIALIZE RCT TO ALL UNUSED 
MOV #F5,CUROV 

MOV #SECSI6,R 

CLR R 

MOV #RDBUF ,R4 

MOV R1, (R4S+ 

DEC R3 

BNE LP 

MOV SERNUM,R1 
MOV #ROBUF ,R4 

ADD RSER,R4 

MOV #4,R5 

MOV (R1)+,R2 

MOV Re. (RA)s 

DEC R 

BNE 6$ 

MOV CURTRK,R3 
PUSH = R3 

MOV CYLNUM,R3 
PUSH 

MOV CYLNUM+1 ,R3 
PUSH = RB 

MOV RBNLBN, TEMP 
MOV RBNLBN*1, TEMP+1 
MOV #TEMP, 

MOV #256. ,DDUMMY 
CLR DOUMMY +1 

MOV #DDUMMY ,R3 
CALL DADD 

MOV LBNLBN, HOLD 
MOV LBNLBN*1,HOLD+1 
MOV ATOTRCT,R3 
MOV #HOLD ,R4 

CALL DSUB 

MOV HOLD, CURBN 
MOV HOLD, CURL 

MOV HOLD+1 , CURBN¢1 
MOV HOLD+1, CURLBN¢1 
CLR c 

MOV ASCR,R3 

MOV #CONBLK,RO 
MOV LBNTRK(R3) ,R2 
BIC #HIBYTE ,R2 
MOV R2 v3¢RO) 

nov STCYL(R3) ,R2 
MOV R2,V141(RO) 
CLR R 

MOV R2,V1(RO) 

CLR R 

MOV R5,NEXT1 

MOV #CURBN,R4 

CALL = CVTSK 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 73 
RCT INITIALIZE OVERLAY 


INITIALIZE OVERLAY (F7) 
START 






sFOR OVERLAY INIT 
SECTOR WORD COUN 
44 OF RCT WORDS 


STORE IN BUFFER 
sDECREMENT COUNTER 
sBRANCH BACK TILL DONE 
POINT TO SERIAL NUMBER 
POINT TO BUFFER 

sPOINT TO SERIAL NUMBER 
; COUNTER 


3GET 

STORE WORD 
sDECREMENT COUNTER 
CONTINUE TILL DONE 


LL 
GET CURRENT TRACK 
[GET LOW ORDER CYLINOR 
; SAVE FOR RESTORE 


HIGH ORDER 
sFOR ADD 

32 BLOCKS(CONTROL) WORTH OF RBN'S 
7C a oe ORDER 

zADD TO GET ‘REAL’ NUMBER OF 88N'S 
GET LOW ORDER COUNT OF LBN’S 

GET HIGH ORDER 

3FOR SUBTRACT 


; 0 
GET STARTING RCT LBN 
3GET STARTING RCT BLOCK NUMBER 


sALSO SAVE 

GET HIGH ORDER 

: SAVE 

CLEAR BLOCK COUNTER 
POINT TO CHARACTERISTICS 
sPOINT TO CONVERT BLOCK 
3GET LBN/TRACK 
CLEAR HIGH BYTE 

3FOR CONVERT 
sSTARTING CLYLINDER 
sCLEAR REST OF WORD 
zFOR STORE 

:LOW ORDER ALWAYS 0 
;CLEAR ERROR COUNTER 
zINIT COPY COUNT 


sFOR CONVERT 
:CONVERT AND SEEK 
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UDAF 
RCT TWITLALLZe OVERLAY (F7) 


001477 
001501 


001501 


WRITES: 


1$: 


3$: 


23: 


NOGOOD : 


#WRBLK ,RO 
#WRCMD RS 
Rash 


R2,R 
R3,RW.CMD(RO) 
r+ all oR2 


C 
R3,RW.EDC(R2) 
roe ty oy hase 


UNIT ,R2 

1 aaah 
WRITE 

R1 


NOGOOD 
Her 


WRITES 


R5 
ALE 


PTRY 

RECOV. RECTMP 

#CURBN,R4 
#RCTFMT,R3 
DAD 

FCTCPY ,NEXT1 
RCLP2 
FCTCPY,RS 
RCINER 
#RCINIT, FLAG 
4% 
TEMP RS 
4 28. -DDUMAY 
#DDUMAY ,R3 
DSUB 
DCMP 


sPOINT TO COMMAND BLOCK 
WRITE COMMAND 


cOeRe GT EDC = RETURNED IN R3 


SSTICK IN COMMAND BLOCK 
:GET LOW ORDER HEADER 
IN WRITE BLOCK 


GH _ ORDER 
ZADD § STARTING LBN BITS 


‘STORE IN WRITE BLOCK 
GET DUMMY SDI POINTER 
POINT IN COMMAND BLOCK 
7GEi HEADER PREAMBLE 
7GET DATA PREAMBLE 

ET UNIT 


MAKE SURE POINTING AT BLOCK 
WAIT " 3h OR PULSE 


WRITE SECT 
ANY ERROR ? 


; 


¢MAX ? 
zYES = TRY SOME RECOVERY 
3 INC estar COUNT 


:GET CURRENT oy RECOVERY LEVEL 
HEN FRIED 


: NIT 

sDECREMENT IT 

sRETRY 

2YUP = INCREMENT COUNTER 
d INCREMENT IT 

iGET y+ > aay LEVELS 


SUBTRACT ONE BLOC 
AR 


SEQ 327 





UDAFM = 
RCT INITIALIZE OVERL 

115 003327 07 335 
116 003 01 ¢ 
11 Ooe 1 02344 
118 003332 412000 
119 003334 05334 
120 003335 114005 
121 003336 ok 3 et 
122 003340 104201 
123 tad 100245 
124 003343 117401 
125 003344 053342 
126 003345 102200 
127 003350 053377 
128 003351 

129 003356 104300 
130 003361 104300 
131 003364 115400 
132 003366 106300 
133 003371 013421 
134 003372 060022 
135 003373 106300 
136 003376 053157 
137 003377 

138 003400 104030 
139 003402 104030 
141 003405 1040 
142 008407 192030 
143 003411 

144 003412 104030 
145 003414 104300 
146 003417 022242 
147 003420 000000 
148 003421 104202 
149 003423 104204 
150 003425 114003 
151 003426 114005 
136 003427 101205 
153 003431 100243 
154 iit ak 100245 
155 003433 117402 
156 003434 053431 
157 003435 101200 
158 003440 003372 
159 003441 104012 
160 003442 104201 
161 003444 022542 


001476 


2 9g sg se 


S 

RS 
WIN 
Wo 
moe 


g 
S 


000100 


000017 


001221 
001114 
001115 
001476 


001476 


001101 


001221 


4$: 


5$: 


7$: 


RCLP4: 


RCLP6: 


RCFIX: 


RCLP3: 


RCINER: 
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4% 
4h 

FIXBLK 

COUNT 

7$ 

RS 

#RDBUF ,R4 
#4,R1 
R5,(R4)+ 

R1 

5$ 
#RCINON,FLAG1 
RCLP6 

CURLBN 
CURLBN, CURBN 
a ee 
RCTLBN, COUNT 
RCFIX 

UPDATE 
RCTFAT, COUNT 
RCINLP 

R3 
R3,CYLNUM+1 
Ree tSEEKoR 


Re -C ym 

R35, 1SEEK+1 

R3 

R3,CURTRK 
CURGRP, ISEEK+3 
SEEK 


#126. ,R2 
#ROBUF ,R4 
R3 


RCLP 
#RCINDN,FLAG1 
RCLP4 

1,R2 


R 
#15.,R1 
ERRMNT 


SEQ 328 


3NOPE 

21F EQUAL = NO PARTIAL BLOCK 
zYES = CHANGE HEADERS TO NULL 
30N FIRST BLOCK ? 

NO - NO NEED TO FIX UP 

3FOR BLOCK FIXUP 

Hs LA BUFFER 


3 COUN 

CLEAR DATE AREA 
sDECREMENT COUNTER 

CONT TILL DONE 

sALL DONE ?? 

2YUP_ = CUT OUT 

z INCREMENT IT 

GET LOW ORDER 

2GET HIGH ORDER 

2 INCREMENT BLOCK COUNTER 
sDONE RCT BLOCKS(NOT PAD) 
YUP = REINIT BLOCK 

H+ HOST KNOW STILL ALIVE 


‘NOPE = DO NEXT SECTOR 
GET HIGH ORDER CYLINDER 
[STORE IN SEEK COMMAND 

[GET LOW ORDER 

RE IT 

: IN SEEK COMMAND 

:GET CURRENT TRACK 

SRESTORE GROUP NUMBER 
SRESTORE TO PREVIOUS CYLINDER 


INIT COUNT 
z INIT POINTER 
sFOR STORE 


ITTO 
SET NULL HEADER 


:DONE ALL NON-PAD = ONE MORE THEN FINISH 
sCONTINUE WITH LAST SECTOR 
2XFC ERROR CODE 

sRCT INIT ERROR 

sERROR RETURN 
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FLXBLK: 


FIXLP: 





UDAFM = UDA FORMATTER DMA ; X04.01 23-AUG-82 14:02:32 PAGE 74 
RCT INITIALIZE OVERLAY (F 


CHANGE UNUSED ENTRIES TO NULL HEADERS 


RETURN 


FIXL 
#RCINIT,FLAG 


sFOR LOW ORDER 

3FOR HIGH ORDER 

GET REMAINDER FROM TEMP 
sSET IN NEW s ADER CODE 
;POINT TO BUFFER 

s TOTAL COUNT 

: SUBTRACT USED ENTRIES 


D TO GET OFFSET (MULT BY 2) 


:POINT TO ’ boos UNUSED ENTRY 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 75 
FCT READ OVERLAY (F6) 


-SBTTL FCT READ OVERLAY (F6) 


é 003472 DMOVLY F6,START 
4 : READ A BLOCK OF THE FCT 

2 3 RS => BUFFER 

7 003623 104200 000017 001154 MOV #F6, CUROVL ZOVERLAY NUMBER 

8 003026 104300 001257 000731 MOV FCTCNT ,DDUMMY 'GET CURRENT COUNT 

9 003031 114000 000732 CLR DUMMY +1 [FOR HIGH ORDER STORE 

10 003033 114005 CLR RS SCLEAR ERROR COUNTER 

11 003034 104204 000731 MOV #DDUMMY ,R4 [FOR CONVERT 

le 003036 104303 001144 MOV LBNCYL,R3 [GET LBN CYLINDERS 

13 003040 104207 001424 MOV #CONBLK, RO ‘POINT TO CONVERT BLOCK 

14 003042 100673 000000 MOV R3,V1(RO sSTORE IT FOR CONVERT 

15 003044 104303 001145 MOV LBNCYL+1,R3 ‘HIGH ORDER 

16 003046 100673 000001 MOV R3,V141(RO) *STORE IT 

17 003050 104303 001130 MOV SECTRK,R3 [GET SECTORS/TRACK 

18 003052 100673 000004 MOV R3,V3¢ ‘STORE FOR CONVERT 

19 003054 022665 CALL  CvTSk [CONVERT FCT BLOCK NUMBER AND SEEK 
20 003055 104207 000721 MOV #RDBLK,RO ‘PREPARE FOR READ SECTORS 
21 003057 104203 000726 MOV #HSLIM-1,R3 [POINTER TO DUMMY SDI BLOCK 
22 003061 100673 000005 MOV R3,RW.DUACRO) [STORE IN COMMAND BLOCK 

23 003063 104303 000731 MOV DDUMMY ,R3 [LO ORDER BLOCK NUMBER 

24 003065 100673 000002 MOV R3,RW.LOW(RO) TSTORE IN READ COMD BLOCK 
25 003067 104303 000732 MOV DDUMMY+1_,R3 [GET HIGH ORDER 

26 003071 105303 001325 ADD ST.XBN,RS SADD STARTING LBN BITS 

37 003073 101205 120000 BIS #HD.XBN,R3 SHEADER COD 

8 003075 10067 MOV R3,RW.HE (RO) ‘STORE IN READ CMD BLOCK 
29 003077 104303 001254 MOV BUFPNT,R3 [GET BUFFER POINTER 

30 003101 100673 01 MOV R3,RW.BUF (RO) SSTORE BUFFER ADDRESS IN COMMAND BUFFER 
31 003103 104203 013400 MOV #RUCMD ,R3 [LOAD SDI READ COMMAND 

32 003105 104301 001113 MOV CURTRK.R1 [GET CURRENT HEAD NUMBER IN R1 
33 003107 101013 BIS R1,R ‘SET IT IN COMMAND 

34 003110 100673 000004 MOV R3,RW.CMD(RO) SSTORE BACK 

35 003112 104207 000721 READ7: MOV #ROBLK,RO ZMAKE SURE POINTING AT BLOCK 
36 003114 104203 100000 MOV #RDCMD.R3 [MARK AS ONLY REQUEST 

37 003116 100173 MOV R3, (ROS :STORE IN CMD BLOCK 

38 003117 104302 000740 MOV UNIT. R2 :SDI1 INTERCONNECT 

39 003121 101207 1000 BIS #81T15,R0 ‘SET NO REVECTORING 

40 003123 060012 XFC SIP ‘WAIT FOR PULSE 

41 003124 060002 XFC READ SREAD 1 SECTOR 

42 003125 115001 TST RI SANY ERRORS ? 
43 003126 053144 BNE 100$ TYES = TRY RECOVERY 
44 003127 104173 MOV (RO) ,R3 :GET STATUS 
45 003130 102203 010000 BIT #ECCER3 SECC ERROR ? 
46 003132 013136 BEQ 101$ NOPE = VERIFY EDC 
47 003133 023000 CALL ECCCK SCORRECT ECC 
48 003134 115001 TST Ri STEST FLAG 

49 003135 053144 BNE 1008 SUNCORRECTABLE 

50 003136 104302 001254 101$: MOV BUF PNT,R2 [POINT TO BUFFER 

51 003140 922600 CALL EDC [COMPUTE EDC 

52 003141 106623 000400 CMP RW.EDC(R2) ,R3 :0.K. ? 

53 003143 013206 BEQ 102$ [YUP = CONSIDER GOOD 

54 003144 106 001477 001501 100$: CMP RETRY, THPTRY [MAX ? 

55 003147 01315 BEQ.—Stséd18 [YES = TRY SOME RECOVERY 

56 003150 115400 001501 INC TMPTRY SINC RETRY COUNT 

57 003152 003112 BR READ? [DO RETRY 





SEQ 331 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 75-1 
FCT READ OVERLAY (F6) 
58 003153 104303 001502 1$: MOV RECTMP,R3 :GET CURRENT ERROR RECOVERY LEVEL 
003155 073167 BMI TIF NEGATIVE THEN FRIED 
60 003156 115000 001500 TST RECOV [1S THERE ONLY RECOVERY LEVEL 0 ? 
1 003160 013162 BEQ 3$ [YES = NO NEED TO ISSUE F = JUST RETRY 
62 003161 022571 CALL  ERRHND sTRY RECOVERY 
63 003162 114000 001501 3$: CLR TMPTRY : N 
64 003164 117400 001502 DEC RECTMP ‘DECREMENT IT 
65 003166 003112 READ? SRETRY 
66 003167 2s: 
67 003167 115405 INC RS Z INCREMENT BAD COUNTER 
68 003170 106305 001245 CMP FCTCPY,RS TALL BAD ? 
69 00317¢ 013331 BEQ OF ATAL ZYUP = ALL OVER 
70 003173 104204 000731 MOV #DDUMMY , RG ‘POINT TO COUNT 
1 003375 104203 001241 MOV #FCTEMT.R3 SIZE OF TABLE 
72 003177 021503 CALL DADD ADD T 0 POINT TO NEXT COPY 
003200 114000 001501 CLR PTRY SRESET RETRY LEVEL 
74 003202 104300 001500 001502 MOV RECOV. RECTHP ‘DITTO RECOVERY LEVELS 
003205 003034 BR FOLOOP [BRANCH BACK 
6 003206 102$: 
003206 114000 001501 FODONE: CLR TMPTRY :FOR RESET 
78 003210 104300 001500 001502 MOV RECOV, RECTMP GET RECOVERY LEVELS 
003213 115005 TST R5 TANY ERRORS 
80 003214 013326 BEQ OLDONE :NO = EXIT 
81 003215 104204 000731 MOV #DDUMMY , R4 ‘POINT TO BLOCK COUNT 
82 003217 104203 001241 MOV #FCTEMT.R3 SSIZE OF T 
Be 003952 No2e65 CALL CVYSK SCONVERT AND SEEKees oo 
Be $0 3558 952883 000721 MOV #WRBLK,RO :POINT TO COMMAND BLOCK 
86 003225 104203 122400 MOV #URCMD.R3 :GET WRITE COMMAND 
87 003227 104302 001113 MOV CURTRK.R2 ‘GET CURRENT TRACK 
88 003231 10102 BIS Re. :SET TRACK FOR WRITE 
89 003232 10067 000004 MOY Ru. CHD CRO) ZSTORE IN COMMAND BLOCK 
90 003234 104303 001254 MOV BUF PN :GET BUFFER ADDDRESS 
91 003236 100673 MOV R3, RU. “BUF Ro) :STICK IN COMMAND BLOCK 
4 003240 104303 000731 MOV DDUMMY ,R 2GET LOW ORDER HEADER 
93 003242 10067 900002 MOV R3,RW.LOW(RO) :STORE IN WRITE BLOCK 
94 003264 104303 000732 MOV DOUMMY+1_R3 :GET HIGH ORDER 
95 003246 105303 001325 ADD ST.XBN,RS [ADD STARTING XBN BITS 
96 003250 101203 120000 BIS #HD.XBN,R3 SHEADER CODE 
97 003252 100673 3 MOV R3,RW.HI (RO) SSTORE IN WRITE BLOCK 
98 003254 104203 000726 MOV #HSLIM-1,R3 [GET buy SDI POINTER 
99 003256 100673 5 MOV R3 Ru. DUACRO) [POINT IN COMMAND BLOCK 
100 003260 104303 001321 WRITES: MOV HPREA,R ‘GET HEADER PREAMBLE 
101 003262 104304 001322 MOV DPREA,R& [GET DATA PREAMBLE 
102 003264 104302 000740 MOV UNIT, R2 [SET UNIT 
103 003266 104207 000721 MOV #URBLK RO [MAKE SURE POINTING AT BLOCK 
104 003270 101207 100000 BIS #B1T15.RO :SET NO REVECTORING 
105 003272 960012 XFC SIP SWAIT FRO SECTOR PULSE 
106 953275 6000 XFC WRITE SWRITE SECTOR 
10; 003274 115001 TST R1 SANY ERROR ? 
108 003275 013321 BEQ 2$ :NO = SKIP RETRY 
109 003276 106300 001477 001501 CMP RETRY, TMPTRY [MAX ? 
110 003301 013305 BEQ 1$ YES = TRY SOME RECOVERY 
111 003302 115400 001501 INC TMPTRY 3 INC RETRY COUNT 
112 003304 005260 BR WRITES RETRY 
113 003305 104303 001502 1$: MOV RECTHP,R3 GET CURRENT ERROR RECOVERY LEVEL 
114 003307 073321 BMI 2 TIF NEGATIVE THEN FRIED 





pat 
4> 
as | 
DE 
; 


ORMA 


UDA F 

EAD OVERLAY (F6 
115 003310 413000 
116 it \¢ 013314 
117 003313 022571 
118 So eale 114000 
119 003316 117400 
120 003320 003260 
121 003321 

\s¢ 003321 117405 
12 thee 104300 
124 003325 003206 
125 003326 115400 
126 003330 000000 
127 003331 115000 
128 003333 013352 
129 003334 Aoeges 
130 003337 013352 
131 003340 101200 
132 003343 103200 
133 003346 104201 
134 003350 022403 
135 003351 000000 
136 003352 104012 
137 003353 104201 
138 003355 022542 


001500 


001501 
001502 


001500 
001257 
001257 
000020 


002004 
000001 
000000 


000021 


3$: 


2s: 


BR 
OLDONE : : C 
OFATAL: TST 

BE 


OQUIT: 
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WRITES 


RS 
RECOV, RECTMP 
F ODONE 
FCTCNT 
FCTCNT 
OQUIT 
#GOBAD , FLAG 

OQUIT 

#F CTBAD+BSTGS, FLAG 
#FCTAVL, FLAG 
#F1,R1 

NEXT 


ERRMNT 


31S THERE ONLY RECO 
7 YES NEED TO 
sTRY RECOVERY 
zFOR INIT 
sDECREMENT IT 
sRETRY 

sDEREMENT COUNTER 
GET RECOVERY LEVELS 
:SEE_IF ANY MORE TO DO 
eT to IT 


sALL_DONE 
zSECTOR 0 ? (MEDIA INFO) 
sIF YES THEN IT'S ae ae 


sCONTINUE AS BEST 
sNOPE = GIVE UP 
sSET FCT BAD FLAG 
3NO MORE 

3SET IN D/XBN OVERL 


AY 
4 AL tM IN BEST GUESS MODE 


sRETUR 
zXFC ERROR CODE 
:FCT READ ERROR 
ERROR RETURN 


VERY LEVEL 0 ? 
ISSUE IT = JUST RETRY 
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GET FCT BLOCK FOR D/XBN FORMAT 


& 

5 

$ 003356 

8 

10 

11 003023 104200 000033 
\¢ 003026 104205 001 

13 003030 104 ; 001317 
14 0030 10015 

15 003033 104303 001257 
16 003035 100653 1 
17 003037 Oecaes 

18 003040 0225 $ 

19 003041 10415 
20 oo enes 053062 
21 003043 104650 000001 
$§ 003046 104650 000002 
23 003051 104200 000401 
24 003054 Hoge 001420 
25 003056 104203 005152 
26 003060 022510 
44 003061 

8 003062 104201 000023 
$3 003064 104302 001257 
003066 022542 


001154 


DLERR: 


I 10 


-SBTTL GET FCT BLOCK FOR D/XBN FORMAT (G2) 


GET*S ONE FCT BLOCK FROM HOST FOR D/BN FORMATTING 


DMOVLY G2,START 


MOV #G2,CUROVL 
a R5 


MOV DMBUF , 
MOV FCMSG,R3 
MOV R3, (RS) 
MOV FCTCNT,R3 

V R3,1(R5) 
CALL § SNDMNT 
CALL RCVMNT 
MOV (R5),R3 
BNE ERR 


DL 
MOV 1(R5) ,OVLBLK+1 
MOV 2(R5) ,OVLBLK+2 
MOV #257. ,OVLBLK 
aad #OVLBLK ,R4 


Vv #PBNBUF ,R3 
LL OVRLAY 
RETURN 
MOV #19, ,R1 
MOV FCTCNT,R2 
CALL ERRMNT 


+ SIGNAL OVERLAY 11 
POINT TO MAINT BUFFER 
GET wr CODE 


; E 
:GET BLOCK NUMBER DESIRED 
TORE 


sE NOT ZERO 
1 LOW HOST ADDRESS 
GET HIGH HOST ADDRESS 


GET LENGTH 
FOR OVERLAY + + aay 
;POINT TO BUFFER 


GET THE SECTOR 


SIGNAL DLL_ERROR 
SBLOCK FAILED ON 
ERROR RETURN 


= 
! 


SEO 333 


| 
| 
| 
' 
i 
' 
| 


t—— 


UDAFM = 
GET FCT 
; 
4 
5 
6 
? 003667 
8 
9 
10 
11 003023 
ig 003026 
13 003030 
14 003033 
15 003035 
16 003036 
17 003041 
18 003042 
19 003044 
20 003045 
21 003047 
22 003050 
23 003052 
24 003053 
25 003054 
26 003055 
$f 003057 
8 005061 
29 003062 
30 003064 
31 003066 
32 003067 
ez 00307 
00307 
35 003074 
36 003076 
37 003077 
38 003101 
39 003103 
40 003105 
41 003107 
42 003111 
43 003112 
44 003113 
45 003114 
46 003115 
47 003120 
48 Boiss 
49 00312 
50 003125 
51 ooei¢s 
52 003131 
53 003134 
54 003136 
55 003137 
56 oo ts 
57 00314 


UDA FGRMATTER DMACR X04 
BLOCK FOR LBN FORMAT (G3 


SeEeRECONEEEE 
RESReS SSL eseS 


Wan Rn 
~“ 


on 3 Oo OO | 0 3 3 O30 ot 
~“ 
Ww 
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RSEOURR 
WAWAAAA 


WARERUNSP REALS 
SIN @ SMNMNNNNA LA 


—_ = AY 
Wo 


RURRE 


_ 
WRN 


RRSALSS 


R 


001220 


005152 001254 
000030 
001240 


003192 013 
00001 


000001 
005152 


13$: 


12$: 


RLOOP: 


J 10 
ot 23-AUG=82 14:02:32 PAGE 77 


-SBTTL GET FCT BLOCK FOR LBN FORMAT (G3) 


GET RIGHT FCT BLOCK FOR LBN FORMATTING 


DMOVLY G3,START 


MOV #G3,CUROVL 
FCTCNT 

MOV #PBNBUF , BUF PNT 
#F6,R1 


CALL PAG 

BIT #F CTAVL, FLAG 
BEQ NG 

MOV #PBNBUF , RO 
MOV (RO) R3 

CMP #M512,R3 
BEQ 

CMP #4576,R3 
BEQ 13$ 

TST 

BNE NGD 

MOV FCTFLG(RO) ,R3 
BIT #NOFCT,R3 
BNE NGD1 

MOV C512(RO) ,R3 
MOV R3,FCNT 

BNE 

BIS #FCTEMT, FLAG 
CLR R3 

MOV R3, (RO) 

MOV INST(RO) R3 
INC R 

MOV R3, INST (RO) 
MOV #PBNBUF ,R3 
ADD #FSER,RS 
MOV #SERNUM,R4 
MOV #4,R5 

MOV (R$) +,R2 
MOV R2,(R4)+ 
DEC R5 

BNE 


RS 
MOV #PBNBUF , BUF PNT 
MOV F9,R1 
CALL PAGE 


TST FCNT 

BEQ RDONE1 

MOV #1,FCTCNT 

MOV #PBNBUF , BUF PNT 
MOV #F6,R1 

CALL 


PAG 
BIT #FCTAVL, FLAG 
MOV #PBNBUF ,R4 





3FOR CURRENT OVERLAY 
FOR FIRST FCT BLOCK 
sPOINT TO BUFFER 
44} —- OVERLAY 


sRE IN 
sFCT STILL HERE ? 
;NOPE = CAN IT 


512 
e = 0.K. 
TIS IT 376 ? 
[1S IT FORMAT IN PROGRESS 
NOPE = FCT NO GOOD 


3GET FLAG WORD 

21S THERE REALLY AN FCT ?? 

sNOPE = CCNTINUE BUT USE BST GSS MODE 
:GET COUNT OF USED ENTRIES 


31F NOT ZERO THEN ENTRIES EXIST 
SET EMPTY FLAG 

sFOR FCT INIT 

SIGNAL FORMAT IN PROGRESS 

; CE NUMBER 


SERIAL NUMBER BLOCK 
: COUNTER 


[STORE WORD 
:DECREMENT COUNTER 
“CONT TILL DONE | 


:POINT TO BU 
FCT WRITE OVERLAY 


3:00 

ANY ENTRIES ? 
sNOPE = ALL DONE 
3FOR FCT COUNT INIT 
sPOINT TO BUFFER 
sFCT READ OVERLAY 
3D0 THE READ 

sSTILL HAVE FCT ? 


: - CAN 
sPOINT TO THE BUFFER 


SEQ 334 















UDAFM = UDA FORMATTER DMACR x04 
GET FCT BLOCK FOR LBN FORMAT (G3) 
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Ow 


BLKFND: 
RLOOP1: 


RDONE : 


RDONE1: 


NGD: 


RDONE 2: 
NGD1: 


RQUIT: 
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#254. ,R4 
#HGHPEN, R3 
CMP 
#8, CNT 
RLOOP 
#128. ,PCNT 
#PBNBUF ,R4 
1(R4),RO 
RO,R1 
#HD.CLR,RO 
5 1(R4S 
#HGHPBN,R3 
MP 


4 

FCNT, FCTREV 
#GOBAD , FLAG 

RQUIT 
#F1,R1 
NEXT 
atta fae” FLAG 
#FCTAVL, FLAG 
RDONE2 
ERRMNT 


3NO_ SUBCODE 
ERROR RETURN 


sPOINT TO LAST ENTRY 
PBN 


HIGHEST IN LBN AREA 
z1S_IT RIGHT BLOCK ? 
sYES = FIND RIGHT ENTRY 
+ SUBTRAC BLOCKS WORTH 
BRANCH BACK 
sFOR ag OF COUNT 
POINT TO PBN BUFFER 
'GET HIGH ORD 


ER 
; SAVE : oh coma” 
OR COMPARE 


CLEAR F 
STORE IT 


:DECREMENT COUNT 


3D C 
sPOINT ‘to NEXT ENTRY 
“THEN Last ENTRY IS IT 


BACK 
sMAKE CURRENT BAD 


BACK 
POINT TO HIGHEST PBN 


31F LESS THAN OR EQUAL THEN FOUND FIRST LBBN 
STORE HEADER BACK 


POINTER 
sFCT ENTRY COUNT FOR LATER USE 


RETURN 
sCONTINUE AS BEST GUESS ? 
;NOPE = GIVE UP 


;POINT TO D/XBN OVERLA 
START OVER IN BEST GUESS MODE 


4. Y FCT NOT USED FLAG 
MORE FCT (SO WILL DO EXTEN READS 


EX IT 
ERROR CODE 





1 Sites 
fey SEO 336 
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RCT CLEANUP OVERLAY (G4) 

1 .SBTTL RCT CLEANUP OVERLAY (G4) 

5 : RCT CLEANUP AND FINAL STATS 

3 003247 DMOVLY 64,START 

‘ 3 

9 003023 104200 000041 001154 MOV #64, CUROVL ZFOR OVERLAY IDENT 
10 003026 104207 001264 MOV #DMBUF , ZMESSAGE BUFFER 

11 003030 104303 001467 MOV SNDCNT,R3 SANY SECONDARY REVECTORS ? 
12 003032 100173 MOV R3, (RO) :STORE IT | 
13 003033 115003 TST R3 SARE THERE ANY ? 
14 003034 013154 BEQ CLSKP3 ZNOPE = JUST EXIT | 
15 003035 104202 0062 MOV #REVBUF ,R2 :POINT TO REVECTOR BUFFER 
16 003037 104200 000100 001476 MOV #64. , COUNT :COUNT OF MAX TO REVECTOR AT ONCE | 
17 003042 114000 001107 CLR CURRB ‘CLEAR FOR INIT 
18 003044 114000 001110 CLR CURRBN¢1 ‘HIGH ORDER TOO 
19 003046 104200 002 001474 MOV #2,RCTCNT sINIT RCT BLOCK | 
20 003051 104200 200 001451 CLELP2: MOV #128. ,SECCNT ‘GET COUNT OF RCT ENTRIES 
21 003054 104304 001474 MOV RCTCNT,R4 [GET GLOCK NUMBER TO READ 
22 003056 024373 CALL RRC SREAD IT 

23 003057 104205 00662 MOV  #RCTBUF ,RS POINT TO BUFFER | 
24 003061 104653 000001 CLELP: MOV 1(R5) ,R3 [GET HEADER 
25 003063 103203 007777 BIC #LO,R ZCLEAR OUT LOW GARBAGE 
26 003065 106203 030 CMP #RC.SND,R3 :1S IT A SECONDARY ? | 
4 003067 053117 BNE CLESKP 3NO_= SKIP REVECTORING 
8 003070 104153 MOV (R5) ,R3 [GET LOW ORDER 
29 003071 100223 MOV R3,(R2)+ TSTORE IN REVECTOR BUFFER 
30 003072 104653 000001 MOV (R5) ,R3 :GET HIGH ORDER | 
31 003074 103203 170000 BIC #HD.CLR,R3 [CLEAR HEADER | 
32 003076 101203 030000 BIS #HD.REV,R3 ZSET AS AN LBN REVECTOR 
33 003100 100223 MOV R3, (R2)+ ‘STORE IT | 
34 003101 104303 001107 MOV CURRBN,R3 [GET LOW ORDER RBN NUMBER 
35 003103 100223 MOV R3, (R25+ STO 
36 003104 104303 001110 MOV CURRBN¢1,R3 :GET HIGH ORDER 
37 003106 100223 MOV 3, (R2)+¢ ST 
38 003107 117400 001476 DEC OUNT [DEC NUM OF EMPTY REVECTOR SLOTS 
39 003111 117400 001467 DEC SNDCNT SDECREMENT IT 
40 003113 013153 BEQ CLSKP4 SIF ZERO THEN DONE 
41 003114 104303 001476 MOV COUNT, R3 SFULL BLOCK ? 
4¢ 003116 013140 BEQ LSkP2 [IF 0 = PROCESS BLOCK | 
43 003117 CLESKP: DUBINC CURRBN sINCERMENT IT 
44 003124 105205 000002 ADD RS :POINT TO NEXT RBN ENTR 
45 003126 117400 001451 DEC ECCNT SDECREMENT IT 
46 003130 053061 BNE LELP [DO NEXT ENTRY IF NOT ZERO 
47 003131 115400 001474 INC CTCNT S INCREMENT IT 
48 003133 106300 001243 001474 CMP RCTFMT,RCTCNT : ? 
49 003136 053051 BNE LELP2 [NOPE = READ IN NEXT BLOCK 

50 003137 003147 BR CLEDON 3 DONE 

51 003140 023743 CLSKP2: CALL CLEWRT [PROCESS THE BLOCK 

2 003141 104200 000100 001476 MOV #64. ,COUNT [FOR COUNTER INIT 

53 003144 104202 006204 MOV #REVBUF ,R2 SRESET POINTER 

54 003146 003117 BR CLESKP [BRANCH BACK 

55 003147 106200 000100 001476 CLEDON: CMP #64. COUNT [DONE ANY ? 

56 003152 013154 BEQ CLSKP ?NO = DONE 

57 003153 023743 CLSKP4: CALL  CLEWRT “WRITE OUT ANY LEFTOVERS 








SEQ 337) 
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58 003154 CLSKP3: 

59 003154 104201 000066 MOV #H2,R1 sFINAL CHECK OF FCT,RCT,HEADS OVERLAY 
60 00315 022455 CALL = PAGE [PAGE IT IN 

61 00315 023546 CALL SNDRES sSEND FINAL STATS 

62 003160 022315 CALL DISCON : DISCONNECT/ SP INDOWN DRIVE 

63 003161 114007 CLR RO MAKE SURE QUITS NICELY 

64 003162 060021 XFC DONE DONE 
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000015 
003300 
030002 
003300 


040 
000015 


000021 
003317 
030003 
003317 
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000021 


000026 
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23-AUG-82 14:02:32 PAGE 79 


BARMTB: 


FINMSG: 


LF INMS 


FCTUSD: 


LFCTUS 


FCTNOT: 


LFCTNT 


N 10 





DATA STRUCTURES FOR STATUS RESPONSE 
-BLKW 7 ;PARAMETER TABLE 


FORMAT COMPLETE 


45 0001 
"Format completed’ 
FINMSG 


“GORD” 


;DUP WORD 
eASCIZ 


FCT USED 


eWORD 40014 
eASCIZ ‘FCT used successfully 
= -~FCTUSD 


, #DUP WORD 


FCT NOT USED 


-WORD 40015 
eASCIZ ‘FCT was not used’ 
= FCTNOT 


WARNING OF POSSIBLE HEAD PROBLEM 


-WORD 30020 P WOR 
eASCIZ Ya - possible need = thane problem - run diagnostics’ 


DUP WORD 


REVECTORED LBNS 


.WORD  LLEN LENGTH 
“WORD LBUFE ‘END OF BUFFER 
“WORD 30002 “DUP WORD 

-BLKW 3 [CONVERT BUFFER 
ASCHZ * Revectored LBNS' 


PRIMARY REVECTORS 
-WORD = PL 
» WORD 

- WORD 
-BLKW 


sASCIZ 


s LENGTH 
ZEND OF BUFFER 
WORD 
SO UNVERT BUFFER 
; primary revectored LBNS' 


SECONDARY REVECTORS 


-WORD SLEN ;LENGTH 


SEQ 338 





UDAFM = UDA ty DMACR X04.01 23-AUG-82 14:02:32 PAGE 79-1 
RCT CLEANUP OVERLAY (G4) 





SEQ j 


58 003335 003342 -WORD SBUFE sEND OF BUFFER 

59 0033536 030004 3$: -WORD 30004 DUP 

60 003337 -—BLKW 3 sCONVERT BUFFER 

61 003342 SBUFE = . 

o¢ 003342 040 123 145 eASCIZ ‘° Secondary/tertiary revectored LBNS' 

o7 000026 SLEN = 738 

#4 3 RCT BAD BLOCKS 

67 003 -WORD RCLEN ;LENGTH 

68 003365 003372 -WORD RCBUFE sEND OF BUFFER 

69 003 3000 4$: -WORD 30005 ;DUP 

70 003367 -—BLKW 3 : CONVERT BUFFER 

71 003372 RCBUFE = ‘ 

72 003372 04 102 141 -ASCIZ ‘ Bad blocks in the RCT area due to data errors’ 

73 RCLEN = -~4$ 

74 3 

75 3 

a} 3 DBN BAD BLOCKS 

78 003422 000034 ~ WORD LEN ;LENGTH 

79 003423 003430 -WORD DBBUFE sEND OF BUFFER 

80 003424 030007 5$: -WORD 30007 ;DUP WORD 

81 003425 -BLKkwW 3 ; CONVERT BUFFER 

82 003430 DBBUFE = ® 

83 003430 040 102 141 -ASCIZ ‘ Bad blocks in the DBN area due to data errors’ 

Hey 000034 DBLEN = .-5$ 
a6 3 XBN BAD BLOCKS | 
88 003460 000034 -WORD XBLEN LENGTH 

89 003461 003466 WORD XBBUFE sEND OF BUFFER | 
90 003462 030010 6$: WORD 010 3 WOR 

91 003463 -BLKW sCONVERT BUFFER | 
92 003466 XBBUFE . 

93 003466 040 102 141 eASCIZ ‘ Bad blocks in the XBN area due to data errors’ 
o 000034 XBLEN = -76$ 

38 ; RETRIED BLOCKS | 
98 003316 000025 -WORD RELEN ;LENGTH | 
99 003517 003524 -WORD REBUFE sEND OF BUFFER 

100 003520 030013 7$: -WORD 30013 3 WORD 

101 003521 -BLKW ; s CONVERT BUFFER 

108 003524 REBUFE = 
103 003524 040 102 154 eASCIZ * Blocks retried on the check pass’ | 
104 000025 RELEN 
105 .DSABL uc 
106 ; | 
107 : 
H+ ; END OF LIST 
ba 003545 000000 -WORD 0 

\"¢ 3 BUILD AND SEND STAT RESPONSES 

114 003546 104207 003172 SNDRES: MOV #F INMSG,RO sPOINT TO ‘‘COMPLETE’’ MESSAGE 









c 11 

SEQ 340 
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115 003550 104201 000012 MOV #LFINMS,R1 ZLENGTH OF MESSAGE 

116 00 35¢ 0016 XFC MAINTR : IT 

117 003553 104204 00327 MOV #RESTAB,RG :POINT TO TABLE 

118 003555 104203 00316 MOV #PARMTB,R3 [PARAMETER TABLE 

119 003557 104 00131 MOV LBNBAD,R [LBN'S BAD 

120 003561 10083 MOV R2, (R35+ SSTORE IT 

121 003362 107 02 001264 SUB DMBUF | R SSUBTRACT STORED SECONDARIES TO GET PRIMARY 
1 2 003564 10083 MOV R2,(R3)¢ SSTORE IT 

123 003565 104302 001264 MOV DMBUF [STORED SECONDARY COUNT 
124 003567 10083 MOV R2,(R$)¢ 3S 

125 003570 104302 001314 MOV RCTBAD,R2 ‘RCT BAD BLOCKS 

126 003572 10083¢ MOV R2, (R3)+ : 

127 003573 104302 001315 MOV DBBAD,R2 ‘DBN BAD BLOCKS 

128 003575 100232 MOV R2,(R3)+ *ST T 

129 003576 104302 001316 MOV XBBAD,R2 :XBN BAD BLOCKS 

130 003600 100232 MOV 2,(R$)¢ SSTORE IT 

131 003601 104302 001470 MOV RTYCNT ,R2 SRETRIES 

132 003603 10025¢ MOV R2,(R3)+ sSTORE IT 

133 003604 104203 003163 MOV #PARMTB,R3 [POINT BACK TO BEGINNING 
134 003606 104242 MOV (R4)+,R2 [GET LENGTH OF MESSAG 

135 003607 104245 SNDLP: MOV (R4)+~R5 [GET CND OF BUFFER ADDRESS (FOR CONVERT) 
136 003610 023644 CALL  CLRBUF SINITIALIZE THE BUFFER 
137 003611 104047 MOV R4,RO [MOVE ADDRESS OF STRING TO RO 
138 003612 103200 000400 001221 BIC #FLIPON,FLAG1 SCLEAR FLAG (FOR CONVERT) 
139 003615 104231 MOV (R3)+,R1 [GET WORD T 

140 003616 023660 CALL DECASC [CONVERT TO ASCII 

141 003617 104021 MOV R2,R :GET LENGTH IN R1 

148 20 060016 XFC MAINTR [SEND TO THE HOST 

143 003621 105024 ADD R2,R4 ‘POINT TO THE NEXT MESSAGE 
144 003622 104242 MOV (R4)+,R2 [GET LENGTH 

145 003623 053607 BNE SNOLP [BRANCH IF NOT ZERO 

146 003624 102200 002000 001220 BIT #BSTGS,FLAG [DID WE USE FCT ? 

147 003627 013636 BEQ USDFCT SYES = PRINT THAT MESSAGE 
148 003630 104207 003220 MOV #F CTNOT,RO :POINT TO NOT USED MESSAGE 
149 003632 104201 000012 MOV #LECTNT.R1 ‘LENGTH OF MESSAGE 

13 ee Baas me put ie 

138 003636 104207 003204 USDFCT: MOV #FCTUSD,RO [POINT TO USED MESSAGE 

153 003640 104201 000014 MOV #LFCTUS.R1 [LENGTH OF MESSAGE 

154 003642 060016 KFC MAINTR ‘SEND IT 

155 003643 000000 DONFCT: RETURN RETURN 
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WR AOOMNOUEWN— 
Sssssssss 
SSSSSSLE 
NUEWNOOS 


INIT A 3 WORD BUFFER TO ASCII BLANKS 
RS => END OF BUFFER 


PUSH RS, R2 :SAVE RS 
MOV #3,R0 :WORD COUNT 
MOV #BLANWD,R2 [WORD OF 2 ASCII BLANKS 
MOV R2,-(R5) :STORE WORD IN BUFFER 
DEC RO SDECREMENT COUNT 
BNE CLRLP ‘LOOP TILL DONE 

R2,R5 TRESTORE RS 


POP 
RETURN 
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370. 
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WWW 
NaN 
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34 003742 


1 
717 





9329332882 
RASSONLRURARLELEREL 
PEI VER IS SESS SSS 


3 


oo Ow 
S254 
woo 
SSS 


(G4) 


000731 


001221 


001221 


001221 


001221 


DECASC: 
DECALP: 


1$: 


2$: 


3$: 





CONVERT FROM BINARY TO DECIMAL ASCII 


R1 = VALUE TO BE CONVERTE 


D 
R5 => END OF BUFFER TO PUT RESULT 


RO,R2,R3,R4 
R1,TEM 


eR2 
| aaaataateat 
R2,RO 
#FLIPON,FLAG1 


2,R0 
RO,-(R5) 
#FLIPON,FLAG1 
(R4),R1 


DECALP 
 * piaeamattintaaa 


R4.R3, R2, RO 


sSAVE SOME REGS 

STORE VALUE TO BE CONVERTED 
CLEAR HIGH ORDER 
sFOR DIVIDE BY 10 
:CLEAR a ORDER 

;DIVIDENT 


IS 
:D0 THE DIVIDE 
3GET TP aecli (VALUE OF INTEREST) 
MAKE IT ASCII 
WHICH BYTE ARE WE ON ? 
31F SET = THEN HIGH BYTE 
31F LOW BYTE = SAVE_IN RO 
iSeT NOW ON HIGH BYTE 
2GET FIRST DIGIT INTO HIGH BYTE 
OR IN LOW BYTE 
STORE IT IN BUFFER 
#: NOW ON LOW BYTE 

T QUOTIENT 
71F NOT ZERO Lyre CONTINUE | 
WHICH BYTE DID 
:1F CLEAR THEN ARE P INISHED 
GET DIGIT IN HIGH ORDER 
3SET a LOW ORDER BLANK 
zAND WRITE OUT LOW BYTE 
RESTORE REGS 





SEQ 342 





ee ~——5 


SEQ 343) 
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PROCESS REVECTOR BLOCK 


¢ 


CE COMPUTE EDC = RETURNED IN R3 
000400 MOV R3,RW.EDC(R2) ; IT 


003743 LEWRT: PUSHA 

003751 104204 9062 MOV  —- #REVBUF , RG :POINT TO BUFFER 

003753 104300 001476 000736 MOV COUNT, TEMP [GET COUNT 

003756 10464¢ CLHERE: MOV g(R4) 22 GET LOW ORDER RBN 

003760 104643 00000 MOV (RG) <R GET HIGH ORDER RBN 

003762 101203 BIS § #HD.RON,R3 SET IN HOR CO 
10 003764 104205 007321 MOV —s- @CLBUF ,R'5 POINT FER 
11 003766 104201 2 MOV #RENRPT,R1 INIT COUNTER | 
12 003770 1025¢ WLOOP: MOV = R2,(R5)+ ;STORE LOW ORDER 
13 003771 10025 MOV —s- R3_(R5) + STORE HIGH ORDER 
14 003772 117401 DEC R1 SDECREMENT COUNTER 
15 003773 053770 BNE SCONTINURE TILL DONE 
16 003774 104203 001053 MOV —s- #SCRR3 [POINT TO CHARACTERISTICS | 
17 003776 104632 000011 MOV — LBNTRK(R3) ,R2 7GET LBN/TRACK 
18 004000 103202 177400 BIC § #HIBYTE,R2 TCLEAR HIGH RYTE 
19 004002 104207 001424 MOV = #CONBLK. RO SPOINT TO CONVERT BLOCK 

004004 100672 000004 MOV R2,V3(RO) SFOR CONVERT 

004006 104632 1 MOV —s STCYL(R3),R2 STARTING CLYLINDER 

004010 103202 007777 BIC ‘ ZCLEAR REST OF WORD 

004012 100672 1 Vs R2, W1#1CROD STORE 

004014 114002 CLR oR FOR STORE 

004015 100672 000000 MOV —s— R2,, V1 (ROD [LOW ALWAYS ZERO 

004017 024130 CALL CS [CONVERT AND SEEK 

904029 104207 090721 MOV #URBLK RO ;POINT TO COMMAND BLOCK 

004022 104203 122400 MOV #WRCMD.R GET WRIT 

004024 104502 001115 MOV CURTRK.R2 7GET CURRENT TRACK 

004026 10102 BIS = R2,R3 SSET TRACK FOR WRITE 

004027 100673 MOV —s-R3, RW. CMD RO) STORE IN COMMAND BLOCK 

004031 104202 007321 MOV ss CL BUF, R2 :POINT TO BUFFER 

004033 022600 CALL : 

004 

004 

004 

004 

004 

004 

004 

004 

004 


WWW Mononononononons 


034 100623 3 STORE 
036 Hs $4 000001 MOV R2 ,RW.BUF (RO) 2STICK C 
040 10414 MOV (R4),R GET LOW ORDER HEADER 
041 100673 000002 MOV R3,RW.LOWCRO) STORE IN WRITE BLOCK 
043 Hes of 000001 MOV 1(R4) RS GET HIGH ORDER 
3 045 105303 001323 ADD ST.LBN,R3 zADD STARTING LBN BITS 
& 047 100673 000003 MOV R3,RW.HI (RO) STORE IN WRITE BLOCK 
& 051 104203 000726 MOV #HSLIM-1 R35 GET DUMMY SDI POINTER 
& 053 100673 000005 MOV R3,RW.DUMCRO) POINT IN COMMAND BLOCK 
43 004055 104040 000731 MOV R4 ,DDUMMY 2 SAV 
44 004057 104303 001321 WRITE9: MOV HPREA,R3 GET HEADER PREAMBLE | 
45 004061 104304 001522 MOV DPREA,R4 2GET DATA PREAMBLE 
46 004063 Hos 4 000740 MOV UNIT ,R2 7SET UNIT | 
47 004065 104207 000721 MOV #WRBLK ,RO sMAKE SURE POINTING AT BLOCK 
48 004067 101207 100000 BIS #B1T15,R0 2SET_NO REVECTORING 
49 004071 poms XFC SIP sWAIT FOR SECTOR PULSE | 
50 004072 06000 XFC WRITE sWRITE SECTOR 
51 004073 115001 TST R1 sANY ERROR ? 
52 004074 014104 BEQ 1$ sNO - SKIP RETRY 
53 004075 106200 900010 001501 CMP #MAXTRY, TAPTRY sMAX ? 
54 004100 014104 BEQ 1$ zYES = GIVE UP 
55 004101 115400 001501 INC TMPTRY INC RETRY COUNT 
; 9B 44 004057 1s BR WRITES 2D0 RETRY 
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001501 
000731 


001476 
000100 


001424 
000002 
00000 


CPP se Se Ge Ge 





CLR TMPTRY ZCLEAR RETRY COUNT 
MOV DDUMMY ,R4 +R 

ADD #REVLEN, RG ‘POINT TO NEXT ENTRY 

INC COUNT SINC COUNTER 

CMP #64. , COUNT : > 

BNE CLHERE [NO = REPEAT 

CALL RBNWRT [WRITE GOOD EDC'S TO RBN'S 
RE TURN 


CONVERT BLOCK NUMBER TO PHYSICAL ADDRESS AND SEEK 
R4 => BLOCK NUMBER 


MOV #CONBLK,RO :POINT TO CONVERT BLOCK 
MOV (R4) R3 [GET LOW ORDR 
MOV R3,V2(RO) ‘STORE IT 
MOV 1(R4) ,R3 ‘HIGH ORDER 
BIC #HD.CLR,R3 [CLEAR HEADER 
MOV R3,V2+1(RO) ‘STORE I 
MOV #SCR,R1 :POINT TO SUBUNIT CHARACTERISTICS 
KFC CvT [CONVERT IT 
MOV TRK (RO), CURTRK [GET TRACK 
MOV CYL(RO). ISEEK+1 [LOW ORDER XYLINDER 
MOV CYL+1(RO), ISEEK+2 ‘HIGH ORDER CYLINDR 

V GRP(RO), ISEEK+3 GROUP R 
CALL K 'D0 SEEK 
TST R TANY ERROR 

E CKR 3s YUP 
RETURN 

V #10.,R1 ZSEEK ERROR 
MOV #CONBLK,RO [CONVERT BLOCK 

CYL(RO) .R2 :CYLINDER FAILD ON 


MOV 
CALL ERRMNT ERROR RETURN 








H 11 
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1 004175 
§ 004177 
pues 
4 004203 
5 004205 
6 004207 
7 004211 
8 004213 
9 004215 
10 geese 
11 004221 
12 004223 
13 004225 
14 004227 
15 004231 
16 004233 
17 004234 
18 004236 
19 004241 
20 004244 
21 004246 
22 004250 
23 004251 
24 004253 
25 004255 
$6 og 244 
$s ive ye 
29 004264 
30 004266 
31 004267 
32 004271 
33 004273 
34 004275 
35 004277 
36 004301 
37 004303 
'38 004305 
39 004307 
40 004311 
41 004313 
42 004315 
43 004317 
44 004320 
45 004321 
46 poe ese 
47 00432 
48 00432 
49 ones 
50 004331 
51 004332 
6 004334 
53 004335 
54 004337 
55 004340 
56 004341 
57 004343 


222 
Winn 
: 


CEES 


aescessces 
SRSREE RENE SS 


Data aa Da Dad DD DD DDD 
Sz 
BPTEeS 
SOONNNNNINNNIN NPY 


o 


RREVERKR 
WWWWWIWWNWWNIAANINI NIWA 


S2Stes 
= Owner 
NENONNVOOCOSO 


SVESESSSUSESSASSSSSNSISSF 


ey Oe 
x ® 
s 


_—=0O0-0— 


001477 
001501 
001502 
001500 


001501 
001502 


RBNWRT: 


000733 RNWHER: 
000734 


WRIT13: 


001501 


1$: 


3$: 


MOV 


#REVBUF ,R4 
#GDBLK ,R3 


ED 
Re fu. DC(R3) 


»V3(RO) 
LBNTRK(R3) ,R2 
HIBYTE,R2 
R2,V4(RO) 
STEVE CRS) .R2 
Re .V1#1 (RO) 
R2,V1(RO) 
(R4), TEMP2 
(RG), TEMP2+1 
R4 ,DDUMMY 
#TEMP2,R4 
CVTSK 
#URBLK RO 
#URCMO.R3 
CURTRK »R2 
R3,RW.CMD(RO) 
#GOBLK,R 
R2, RW. BUF (RO) 


R3,RW.LOWCRO) 
1(R4)R3 


RECTMP 


POINT TO BUFFER 
POINT TO GOOD BLOCK 
D EDC 


hike 

sPOINT TO CHARACTERISTICS 
3GET RBN/TRACK 

:CLEAR HIGH GARBAGE 
sPOINT TO CONVERT BLOCK 
;FOR CONVERT 


:GET LBN/TRACK 
CLEAR HIGH BYTE 
SET UP FOR RBN'S 
zSTARTING CLYLINDER 
CLEAR REST OF WORD 
; STORE 


[FOR STOR 
[LOW ALWAYS ZERO 
: RBN 


sGET WRI 

3GET CURRENT TRACK 

SET TRACK FOR WRITE 
sSTORE IN at BLOCK 


: IGH R 

zADD STARTING RBN BITS 

:GIVE RBN ER 

STORE IN WRITE BLOCK 

2GET DUMMY SDI POINTER 
T_ IN COMMAND « 


sPOINT IN BLOC 

3GET HEADER PREAMBLE 

3GET DATA PREAMBLE 

;SET UNIT 

sMAKE SURE POINTING AT BLOCK 
sSET NO REVECTORING 

sWAIT FOR SECTOR PULSE 
sWRITE SECTOR 

ZANY ERROR ? 

NO ~ SKIP RETRY 

sYES = TRY SOME RECOVERY 

oi orto COUNT 

3GET CURRENT ERROR RECOVERY LEVEL 

3 IF NEGATIVE THEN FRIED 

:1S ONLY RECOVERY LEVEL 0 ? 

3YES - NEED TO ISSUE IT = JUST RETRY 
sTRY RECOVERY 


2FOR INIT 
sDECREMENT IT 


SEQ 345 
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UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 83-1 
RCT CLEANUP OVERLAY (G4) 


WRIT13 
TMPTRY 
RECOV, RECTMP 
DDUMMY, 
#REVLEN, RG 
TEM 
#64. , TEMP 
RNWHER 
amet 
R2,V4(RO) 


sRETRY 
sRESET 
;D1TTO 
sRESTORE 
sPOINT TO 
2 INC COUN E 


[FOR RESET 


R4 
NEXT ENTRY 
TER 


: 0 
RESET FOR NON-RBN'S 


SEQ 346, 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 84 
RCT CLEANUP OVERLAY (G4) 


1 3 

é : READ A BLOCK OF THE RCT 

; ; R4 =>BLOCK NUMBER OF RCT 

5 004373 RRC:  PUSHA 

6 004401 114005 CLR ZCLEAR ERROR COUNTER 

004402 104203 001053 MOV #SCR,R3 ‘POINT TO CHARACTERISTICS 

8 004404 104632 000001 MOV STCYL(R3) ,R2 [GET LOW ORDER STARTING CYLINDER 
9 004406 103202 007777 BIC #LO,R 'CLER REST OF WORD 

10 004410 104207 001424 MOV #CONBLK,RO [POINT TO CONVERT BLOCK 

11 004412 100672 000001 MOV R2,V1#1(RO) [STORE FOR CONVERT 

12 004414 114008 CLR R ‘FOR STORE 

13 004415 100672 000000 MOV R2,V1(RO) [LOW ORDER ALWAYS ZERO 

14 004417 104632 000011 MOV LBNTRK<R3) ,R2 [GET LBN/TRK 

15 004421 105208 177400 BIC #HIBYTE R2 [CLEAR HIGH BYTE 

16 004423 100672 000004 MOV R2,V3(RO) ZSTORE IN CONVERT BLOCK 

17 004425 104040 000731 MOV R4 .DDUMMY [STORE BLOCK NUMBER 

18 004427 114000 000732 CLR DDUMMY +1 ‘FOR STORE 

19 004431 104204 000731 MOV #DDUMMY, RG [POINT FOR ADD 

20 004433 104203 001230 #HOLD RS [STARTING RCT LBN 

21 004435 021503 CALL DADD [GET RCT LBN 

22 004436 024130 RCL: CALL cs sCONVERT FCT BLOCK NUMBER AND SEEK 
23 004437 104207 000721 MOV #RDBLK RO [PREPARE FOR READ SECTORS 

24 004441 104203 000726 MOV #HSLIM-1,R3 SPOINTER TO DUMMY SDI BLOCK 
25 004443 100673 000005 MOV R3,RW.DUM(RO) ‘STORE IN COMMAND BLOCK 

26 004445 104143 MOV 4) ,R3 [LO ORDER BL 

37 00444 100673 2 MOV R3 RU.LOWCRO) ZSTORE IN READ COMD BLOCK 

B 004450 10464 MOV R4) OR 3HI ORDER BLOCK NUM AND CODE 
29 004452 105303 001323 ADD T.LBN,R3 SADD STARTING LBN BITS 

30 004454 10067 3 MOV R3, RW. HI CRO) [STORE IN READ CMD BLOCK 

31 004456 104203 006621 MOV #RCTBUF R3 [LOAD ADDRESS OF DATA BUFFER 
32 004460 100673 000001 MOV R3, RW. BUF (RO) ZSTORE IN COMMAND BUFFER 

33 004462 104203 013400 MOV #RUCMD RS [LOAD SDI READ COMMAND 

34 004464 104301 001113 MOV CURTRK.R1 ZGET CURRENT HEAD NUMBER IN R1 
35 004466 101013 BIS R1,R ‘SET IT IN COMMAND 

36 004467 100673 000004 MOV R3,RW.CMD(RO) :STORE BACK 

37 004471 104207 000721 READ8: MOV #ROBLK RO sMAKE SURE POINTING AT BLOCK 
38 004473 104203 100000 MOV #RDCMD.R3 [MARK AS ONLY REQUEST 

39 004475 100173 MOV (ROS ZSTORE IN CMD BLOCK 

40 004476 104302 000740 MOV UNIT R2 :SDI INTERCONNECT 
41 004500 101207 100000 BIS #B1T15,RO [SET NO REVECTORING 

42 004502 06001 XFC SIP ‘WAIT FOR PULSE 
43 004503 06000 > XFC READ sREAD 1 SECTOR 

44 004504 115001 TST R1 SANY ERRORS ? 

45 004505 054523 BNE 1008 ‘YES = TRY RECOVERY 
46 004506 104173 MOV (RO) ,R3 [GET STATUS WORD 
47 004507 102203 010000 BIT #ECCE R3 ZECC ? 
48 004511 014515 BEQ 101$ :NOPE = VERIFY EDC 
49 004512 023000 CALL €CCCK SCORRECT ECC 

50 004513 115007» TST RI [TEST FLAS 

51 004514 054523 BNE 1008 [UNCORREC TABLE 

5 004515 104202 006621 101$: MOV #RCTBUF RZ [POINT TO BUFFER 

53 004517 0226 CALL CEDC [COMPUTE EDC 

54 004520 106623 000400 CMP RW. EDC(R2) ,R3 70.K. 7 

55 00452¢ 014563 * BEQ 102$ [YUP = CONSIDER GOOD 

56 0045¢ 106300 001477 001501 100$: CMP RETRY, TMPTRY SMAX ? 

57 004526 014532 BEQ 1$ SYES = TRY SOME RECOVERY 








UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 84-1 


RCT CLEANUP OVERLAY (G4) 


58 OOt 36! 
59 004531 
60 OOt ee 
61 0045 
$¢ 004535 
63 004537 
64 004540 
65 004541 
66 004543 
67 004545 
68 004546 
69 004546 
70 004547 
71 004551 
72 004552 
73 004554 
74 004555 
75 004557 
76 poses 
77 00456 
78 004563 
79 004565 
80 004570 
81 004571 
82 004572 
83 004574 
84 004575 
85 004576 
86 004600 
87 004602 
88 004604 
89 004605 
90 004607 
91 004611 
92 004613 
93 004614 
94 004616 
95 004620 
96 004622 
97 004624 
98 004626 
99 004630 
100 004632 
101 004634 
102 004636 
103 004640 
104 00464 
105 00464 
106 004644 
107 004645 
108 004646 
109 004651 
110 004652 
111 004654 
Ne 004655 
113 004657 
114 004660 
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001501 
001502 
001500 


001501 
001502 


001245 
001243 
001501 
001500 


001501 
001500 


001241 


000721 
122400 
001113 


001477 
001501 
001502 
001500 


001502 


001502 


001501 


1$: 


3$: 


2$: 


102$: 
RCD: 


WRIT10: 


1$: 


TMPTRY 
READS 
RECTMP,R3 


RS 

FCTCPY RS 
#RCTEMT,R3 
DADD 

TMPTRY 
RECOV, RECTMP 
RCL 

TMPTRY 
RECOV, RECTMP 
R5 

RLD 
#FCTFMT,R3 
DSUB 

cS 

#URBLK RO 
#URCMD.R3 
CURTRK.R2 
R2, 
R3,RW.CMD(RO) 
#RCTBUF R3 
R3,RW. BUF (RO) 


(R4), 
R3,RW.LOW(RO) 
1(R4) ,R3 


2s 

Nate ttnatia 
TMPTRY 
WRIT10 
RECTMP,R3 
RECOV 


INC RETRY COUNT 
:D0 RETRY 


»GET CURRENT ERROR RECOVERY LEVEL 

31F NEGATIVE THEN FRIED 

31S THERE ONLY RECOVERY LEVEL 0 ? 

sYES - NO NEED TO ISSUE IT = JUST RETRY 
sTRY RECOVERY 

3F NIT 

sDECREMENT IT 

sRETRY 


z INCREMENT BAD COUNTER 

sALL BAD ? 

ALL OVER 

; OF TABLE = R4 => BLOCK NUMBER 
ADD TO POINT TO NEXT COPY 

RESET RETRY LEVEL 

sDITTO RECOVERY LEVELS 

BRANCH BACK 


sFOR RESET 

GET RECOVERY LEVELS 
zANY ERRORS ? 

zNO_= EXIT 

SIZE OF TABLE 

GET BACK TO PREVIOUS COPY 
CONVERT AND SEEK 
POINT TO COMMAND BLOCK 
GET WRITE COMMAND 

GET CURRENT TRACK 

SET TRACK FOR WRITE 


H 
STORE IN WRITE BLOCK 
2GET HIGH ORDER 

sADD STARTING LBN BITS 
STORE IN WRITE BLOCK 
2GET eft PO! 
GET HEADER PREAMBLE 

2GET jocks PREAMBLE 

sMAKE SURE POINTING AT BLOCK 
2SET_NO REVECTORING 

sWAIT FOR SECTOR PULSE 
sWRITE SECTOR 

zANY ERROR ? 

3NO ~ SKIP RETRY 


sMAX ? 
sYES = TRY SOME RECOVERY 
3s INC oguey COUNT 


[GET CURRENT ERROR RECOVERY LEVEL 
SIF NEGATIVE THEN FRI 
[1S THERE ONLY RECOVERY LEVEL 0 ? 





SEQ 349) 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 84-2 
RCT CLEANUP OVERLAY (G4) 


115 004 ois BEQ 3$ sYES - NO ta TO ISSUE IT = JUST RETRY 
116 00466 22571 CALL fore TRY TET VERY 

117 004664 114000 001501 3$: CLR TMPTRY FOR INIT 

118 004 117400 001502 DEC RECTMP :DECREMENT IT 

119 0046 004630 BR WRIT10 sRETR 

130 004671 2s: 

121 004671 117405 DEC R5 sDEREMENT COUNTER 

122 004672 104300 001500 001502 MOV RECOV, RECTMP 3GET RECOVERY LEVELS 
123 004675 004563 BR RCD SEE IF ANY MORE TO DO 
124 004676 RLD: POPA 

125 004704 000000 RETURN sALL DONE 

126 004705 104012 RFTL: MOV R1,R2 zXFC ERROR CODE 

127 004706 104201 000016 MOV #14.,R1 RCT READ ERROR 

128 004710 022542 CALL ERRMNT sERROR RETURN 





i = -4 


SEQ 350 





UDAFM = UDA FORMATTER ee X04.01 23-AUG-82 14:02:32 PAGE 85 
FINAL CHECK OVERLAY (H2) 


1 .SBTTL FINAL CHECK OVERLAY (H2) | 
é 004711 — BMOVLY 2, START 
4 ; DO CHECK OF: 

S : FCT 
; RCT 
8 ; CORRECT HEAD ADDRESSING 

10 003023 104200 000066 001154 FINCHK: MOV #H2, CUROVL _ MAKE THIS THE CURRENT OVERLAY 

11 003026 023604 CALL - VERHD :VERIEY ALL HEADS ACCESSIBLE 

12 003027 023032 CALL «FTC TVERIFY FCT 

13 003030 023323 CALL ——-RCTCK SVERIFY RCT 

14 003031 000000 RETURN 





——— 


SEQ 351 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 86 | 
FINAL CHECK OVERLAY (H2) | 
| 
1 3 
é : VERIFY FCT | 
4 003032 114000 001257 FCTCK: CLR = FCTCNT zFOR INIT 
5 003034 115400 001261 INC FCTNPD :$O CHECK THE NULL BLOCK ALSO 
6 003036 104200 006204 001254 MOV #PRMBUF ,BUF PNT -POIN TO BUFFER | 
7 003641 104201 000017 MOV #F6,R1 ‘FCT READ OVERLAY 
8 003043 022435 CALL PAG sREAD FIRST BLOCK 
9 003044 104205 006204 MOV #PRMBUF RS ‘POINT TO BUFFER 
10 003046 104203 126736 MOV #M512,R3 [GET MODE INDICATOR 
11 003050 100153 MOV R3,(R5) ‘SIGNAL DONE FORMAT 
12 003051 104050 001254 MOV R5,BUFPNT *STORE BUFFER POINTER 
13 003053 104201 000030 MOV #F9,R1 ‘FCT WRITE OVERLAY 
14 003055 022435 CALL PAGE SWRITE IT OUT 
15 003056 114 001257 CLR FCTCNT :FOR FCTCNT INIT 
16 003060 104300 001325 001117 MOV ST.XBN,CURXBN+1 ‘ALSO INITIALIZE XBN COUNTER 
| 17 003063 104300 001325 001115 MOV ST.XBN, CURBN¢1 ‘HIGH ORDER 
18 003066 114 001116 CLR CURXBN ‘OW ORDER ALWAYS 0 
19 003070 114000 001114 CLR CURBN :AND BLOCK NUMBER 
20 003072 104203 001053 MOV #SCR,R3 ‘POINT TO CHARACTERISTICS 
21 003074 104207 001424 MOV #CONBLK, RO ‘POINT TO CONVERT BLOCK 
22 003076 104632 000000 MOV CYLBN(RS) ,R2 ‘GET LOW ORDER CYLINDER 
23 003100 100672 000000 MOV R2,V1(RO) SSTORE IT 
24 003102 104632 000001 MOV CYLBN+1(R3),R2 :GET HIGH ORDER | 
003104 100672 001 R2,V1#1(RO) ; T 
26 003106 104303 001130 MOV = SECTRK R35 GET SECTORS/TRACK 
7 003110 100673 000004 MOV R3,V3(RO) TSTORE I 
8 003112 114005 FCTCLP: CLR R5 [CLEAR WRITE ERROR COUNT 
003113 104050 001246 MOV R5,NEXT1 'CLEAR REPEAT COUNT 
30 003115 104204 000736 FCTCL1: MOV #TEMP RG :POINT TO BLOCK 
31 003117 104300 001114 000736 MOV CURBN, TEMP [FOR CONVERSION 
32 003122 104300 001115 000737 MOV CURBN+1, TEMP+1 :DITTO 
33 003125 107300 001325 000737 SUB ST.XBN, TEMP+1 ‘SUBTRACT STARTING XBN BITS 
34 003130 024314 CALL (Si SCONVERT AND SEEK 
35 003131 104207 000721 MOV #RDBLK,RO :POINT TO COMMAND BLOCK 
36 003133 104203 013400 MOV #RWCMD RS [GET READ COMMAND 
37 003135 104302 001113 MOV CURTRK,R2 GET CURRENT TRACK | 
38 003137 101023 BIS R2, ‘SET TRACK FOR WRITE | 
39 003140 100673 000004 MOV R3,RW.CMD(RO) :STORE IN COMMAND BLOCK 
40 003142 104203 006204 MOV #PRMBUF , ‘POINT TO BUFFER 
41 003144 100673 000001 MOV R3,RW.BUF (RO) SSTICK I 
42 003146 104303 001114 MOV CURBN, 7GET LOW R HEADER 
43 003150 100673 000002 MOV —«R3, RW. LOWCRO) :STORE IN WRITE BLOCK | 
44 003152 104303 001115 MOV U AR :GET 
45 003154 101203 120000 BIS #HD.XBN,R3 : 
46 003156 100673 000003 MOV —s«wR’3,RW. HE (ROD ?STORE IN WRITE BLOCK | 
47 003160 104203 000726 MOV #HSLIM=-1,R3 *GET DUMMY SDI POINTER 
48 003162 100673 000005 MOV R3,RW.DUM(RO) ‘POINT IN COMMAND BLOCK 
49 003164 104207 000721 READ9: MOV #ROBLK RO :MAKE SURE POINTING AT BLOCK 
50 003166 104203 100000 MOV #RDCMD,R3 [GET READ COMMAND 
51 003170 100673 000000 MOV R3,RW.STATCRO) SSTORE IT 
52 003172 104302 000740 MOV UNIT,R [SET UNIT | 
53 003174 101207 100000 BIS #B1T15,RO [SET NO REVECTORING 
54 003176 060012 XFC SIP :WAIT FOR SECTOR PULSE 
55 003177 060002 XFC READ READ SECTOR 
56 003200 115001 TST R1 TANY ERAUR ? | 
57 003201 053217 BNE 100$ ‘YES = TRY RECOVERY | 












SEQ 352 






UDAFM = UDA FORMATTER her X04.01 23-AUG-82 14:02:32 PAGE 86-1 
FINAL CHECK OVERLAY (H2) 








58 003202 104173 MOV (RO) ,R3 :GET STATUS WORD 
59 003203 10 303 010000 BIT HE CCE RS SECC ERROR ? 
60 003205 013211 BEQ 101 [NOPE = VERIFY EDC 
61 005206 02 CALL  ECCCK ZCORRECT ECC 
62 003207 115001 TST RI S TEST FLAG 
63 003210 055217 BNE 1008 SUNCORREC TABLE 
64 905¢11 104202 006204 101$: MOV #PRMBUF ,R2 [POINT TO BUFFER 
65 003213 022600 CALL  CEDC SCOMPUTE EDC 
66 003214 106623 000400 CMP RW .EDC(R2) .R3 10.K. 7 
67 003216 013242 BEQ 102$ SYUP = CONSIDER GOOD 
68 003217 106 001477 001501 1008: CMP RETRY, THPTRY ‘MAX ? 
69 903228 013226 BEQ 1$ TYES = TRY SOME RECOVERY 
70 0032¢ 115400 001501 INC TMPTRY SINC RETRY COUNT 
71 003225 003164 BR READ :D0 RETRY 
es 903226 104303 001502 1$: MOV RECTMP,R3 IGET CURRENT ERROR RECOVERY LEVEL 
73 003230 07324 BMI YES SIF NEGATIVE THEN FRIED 
74 003231 115000 001500 TST RECOV 71S THERE ONLY RECOVERY LEVEL 0 ? 
75 003233 013235 BEQ 3 7YES = NO NEED TO ISSUE IT - JUST RETRY 
76 003234 022571 CALL — ERRHND [TRY RECOVERY 
77 003235 114000 001501 3$: CLR TMPTRY : IT 
78 003237 117400 001502 DEC RECTMP SDECRCMENT IT 
79 003241 003164 BR READS sRETRY 
80 00324 102$: 
81 00324 2s: 
82 003242 115405 INC RS 3NO = INCREMENT COUNTER 
83 003243 115400 001246 YES: INC NEXT1 Z INCRERENT IT 
8 0053248 106203 000002 #2,R5 [FOUND 2 GOOD ? 
5 47 01326 BEQ FCTCKD 7YUP = GO TO NEXT BLOCK 
86 003250 104204 001114 MOV #CURBN,R4 [FOR AOD 
87 003252 104203 001241 MOV #FCTEMT,R3 [FOR ADD 
88 003254 021503 CALL DADD [POINT TO NEXT COPY 
89 003255 114000 001501 CLR TMPTRY SRESET RETRY LEVEL 
90 003257 104300 001500 001502 MOV RECOV, RECTMP :DITTO RECOVERY LEVELS 
91 005262 106300 001245 001246 CMP FCTCPY ,NEXT1 ZDONE THIS SECTOR ? 
92 003265 053115 BNE FCTCL1 ZNO - WRITE NEXT FCT COPY 
93 005266 003316 bk FCTCKE t2 NOT GOOD = TR 
94 003267 10 200 002000 001220 FCTCKD: BIT #BSTGS,FLAG :BEST GUESS ? 
95 90327¢ 053315 BNE 4$ [YUP = ONLY CHECK FIRST BLOCK 
96 003273 060022 XFC UPDATE [LET HOST KNOW STILL ALIVE 
97 003274 115400 001257 INC FCTCNT SINCREMENT IT 
98 00327 DUBINC CURXBN S INCREMENT IT 
99 003 104300 001116 001114 MOV CURXBN, CURBN [GET LOW ORDER 
100 003306 104300 001117 001115 MOV CURXBN*+1 , CURBN+1 [GET HIGH ORDER 
101 003311 196509 001261 001257 CMP FCTNPD ,FCTCNT [DONE ? 
102 003314 05311 BNE FCTCLP SNOPE = DO NEXT SECTOR 
103 003315 000000 48: RE TURN 
104 003316 104201 000011 FCTCKE: MOV #9.,R1 ZSIGNAL ERROR 
105 003320 104302 001257 MOV FCTCNT,R2 sBLOCK FAILED ON 
106 003322 022542 CALL  ERRMNT TERROR RETURN 
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UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 87 
FINAL CHECK OVERLAY (He) 


VERIFY RCT 
INC RCTL 
MOV LBNLBN, HOLD 
MOV LBNLBN+1,HOLD+1 
MOV #TOTRCT,R3 
MOV #HOLD RG 
CALL DSUB 

HOLD, CURBN 


MOV 

MOV HOLD, CURLBN 

MOV HOLD+1 , CURBN+1 

MOV HOLD+1 , CURLBN+1 
#1, COUNT 


MOV ; 

CLR 

MOV R5,NEXT1 

MOV #SCR,R3 

MOV LBNTRK(R3) RZ 
BIC #HIBYTE ,R2 


MOV #CONBLK , RO 
R2,V35(RO) 

MOV STCYL(R3) ,R2 
#L0,R 

MOV —— 


CLR 

MOV R2,V1(RO) 
MOV #CURBN,R4 
CALL CS$1 

MOV #RDBLK RO 
MOV #RUCMD.R3 
MOV CURTRK. 

BIS Re oS 

MOV R3,RW.CMD(RO) 
MOV R 


#PRMBUF LR 
MOV R3, Rw. BUF (RO) 
cy N, 

MOV R3,RW.LOW(RO) 

URBN+1,R3 
ADD ST.LBN,R3 
BIS #HD.LBN,R3 


MOV R3,RW.Hi (RO) 
MOV #HSLIM-1,R3 
MOV R3, RW. DUM CRO) 
MOV #RDBLK RO 
MOV #ROCMD.R 
MOV R3, (ROS 

MOV unit 

BIS #BIT1S,RO 
XFC SIP 

KFC READ 

TST R1 

BNE 1008 

MOV (RO) ,R3 

BIT He CCE RS 
BEQ 101 

CALL  ECCCK 

TST RI 


CHECK NON-PAD PLUS NULL BLOCK 
;GET LOW ORDER COUNT OF LBN’S 
3GET HIGH ORDER 

8 alae 


SGET STARTING RCT LBN 
[GET STARTING RCT BLOCK NUMBER 


zALSO SAVE 
2GET HIGH ORDER 
zAND SAVE 


;CLEAR ERROR COUNTER 
sINIT COPY C 

sPOINT TO CHARACTERISTICS 
3GET LBN/TRACK 

;CLEAR HIGH BYTE 

sPOINT TO CONVERT BLOCK 
7FOR CONVERT 

ZSTARTING CLYLINDER 
sCLEAR REST OF WORD 
sSTOR 

sFOR STORE 

;LOW ORDER ALWAYS ZERO 
sFOR CONVERT 

:CONVERT AND SEEK 
sPOINT TO COMMAND BLOCK 
3GET READ C 

3GET CURRENT TRACK 

SET ay FOR Py 


: I 
zADD STARTING LBN BITS 
; HEADER 


STORE IN WRITE BLOCK 

:GET DUMMY SDI POINTER 
sPOINT IN COMMAND BLOCK 
sMAKE SURE POINTING AT BLOCK 
2GET A WORD 





100 003601 
101 003603 
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FINAL CHECK OVERLAY (H2) 


006204 
000400 
001477 
001501 
001502 
001500 





100$ 
#PRABUF ,R2 


CED 
RW.EDC(R2) ,R3 


= 


READ10 


RS 

EXT 

TMPTRY 
RECOV ,RECTMP 
oe 8 

RCTCKD 
#CURBN,R4 
#RCTEMT RS 
a = 


RECOV RECTHP 
FCTCPY ,NEXT1 
RCTCL1 
RCTCKE 
or 


CURLBN 
CURLBN, CU 


BN, CURBN 
CURLBN+1 , CURBN+1 
RCTLBN, COUNT 


RCTCLP 


#11.,R1 
COUNT ,R2 
ERRMNT 





s UNCORRECTABLE 
POINT TO BUFFER 
OMPUTE EDC 


:0.K. ? 
[YUP = CONSIDER GOOD 
[MAX ? 


ZYES = toy SOME RECOVERY 
ZINC + dag COUNT 


CET CURRENT ERROR RECOVERY he 
21F NEGATIVE SKIP GOOD INCREMENT 

31S THERE ONLY gt LEVEL 0 ? 

YES = NO so ° O ISSUE IT = JUST RETRY 
TRY RECOVERY 


OR INIT 
:DECREMENT IT 
RETRY 


° 
e 


3YUP - ea COUNTER 
2 INCR CMENT IT 


:GET RECOVERY LEVELS 
sFOUND 2 GOOD 


YUP = GO TO NEXT aLOck 
FOR ADD 


POINT TO NEXT COPY 
;RESET RETRY LEVEL 

:DITTO RECOVERY LEVELS 
DONE THIS SECTOR ? 

3NO = READ NEXT FCT is 


32 NOT G TROUBL 
LET HOST KNOW STILL ALIVE 
: INCREMENT IT 
INCREMENT IT 
ET LOW ORDER 


2G OR 
2GET — ORDER 
ENOPE = DO NEXT SECTOR 


SET ERROR CODE 
zRCT BLOCK FAILED ON 
ERROR RETURN 


UDAF 


FIN 
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C 
; 
4 
5 
6 
7? 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 


VERIFY ALL HEADS ARE ACCESSIBLE 
ERRCNT 


CLR CURKBN 
CLR CURXBN+1 

CLR STASEC 

CLR STASEC+1 

MOV #BDLST,CURPNT 
MOV #SCR,R 

MOV GRPCYL (RO) ,GRPCNT 
BIC #HIBYTE,GRPCNT 
CLR CURGRP 

MOV #SCR,RO 

MOV TRKGRP(RO) -R3 
BIC #HIBYTE,R3 
MOV R3, TRK 

CLR CURTRK 

MOV CYLBN(RO),R3 
MOV R3,CYLNUM 

MOV CYLBN+1(RO),R3 
MOV LNUM+1 
MOV SECTRK, SECCNT 
MOV CYLNUM, ISEEK+1 
MOV CYLNUM+1 , ISEEK+2 
MOV CURGRP, ISEEK+3 
CALL SEEK 

TST RI 

BAI SKERR 

MOV UNIT, R2 

MOV #RDBLK,RO 

MOV #PRMBUF ,R3 
MOV R3, RW. BUF (RO) 
MOV CURXBN,R3 

MOV R3,RW.LOWCRO) 
MOV CURXBN+1 ,R3 
ADD ST.XBN,RS 

BIS #HD.XBN,R3 
MOV R5- Rw. HI (RO) 
MOV #RUCMD,R 

BIS ¢ RTRK.R 

MOV RW. CMD(RO) 
MOV ri HSLIAI R3 
MOV .DUA(RO) 
MOV Beer tist Ron K> RO 
MOV #ROCMD,R 

MOV R3,RW.STATCRO) 
XFC SIP 

KFC READ 

TST R1 

BEQ 3$ 

BIT #BDTST,FLAG1 
BNE 1$ 

MOV #ROBLK,RO 

MOV RW. HIRO) R3 
BIC #HD. RS 
BIS #HO. “Bib: R 


sCLEAR ERROR COUNT 
; CLEAR 


BAD LIST 
POINT TO CHARACTERISTICS BLK 
LOAD ar cone 

ain yr4 psd HIGH GARBAGE 


:POINT TO CHARACTERISTICS BLOCK 

SLOAD TRACKS/GROUP 

eCL T . 

SRESET race” TRACK NUMBER 

Get STARTING XBN CYLINDER 

2GET NIGH ORDER 

SLOAD SECTORS/ TRACK 

:GET LO ORDER WORD OF CYLINDER NUMBER 

sLOAD HIGH ORDER WORD OF CYL NUM 
;LOAD GROUP NUMBER 

i SEEK TO CURRENT CYL NUM 

ee Y ERR ORS ? 


= QUIT 
:SD1 atte toe te 

T TO READ COMMAND BLOCK 
ZBUFFER PoIN TER 


GET LOW RODER BLOCK _— 


BLOCK 
URE POINTING AT BLOCK 
;RESET fr are POINTER 


:SYNCH WITH SECTOR/ INDEX PULSE 
RROR ? 


AD 0.K 
i ad Bid” A - “aaa CODE ? 
~ AIN 


E ADER 
T IN BAD HEADER CODE 





SEQ 355, 





—_—— a ree 


SEQ 356) 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 88-1 
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| 
| 
58 003760 100673 000003 MOV R3,RW.HI (RO) ZSTORE IT BACK 
25 ObSse> 191500 Syaooe 001221 BIS #BOTST,FLAG1 ZSET THAT WE TRIED BAD HEADER CODE 
60 003765 003720 BR 5$ SAND TRY READ AGAIN 
61 003766 103200 010000 001221 1$: BIC #BOTST,FLAG1 ZCLEAR BAD HEADER TESTED FLAG 
62 003771 DUBINC CURXBN ZINCREMENT CURRENT SECTOR 
63 003776 117400 001451 DEC SECCNT ZDECREMENT SECTOR/TRACK COUNT 
004 053674 BNE 2$ ‘TRY IT AGAIN WITH NEXT SECTOR 
65 004001 104307 001471 MOV CURPNT,RO [POINTER TO INFO BLOCK 
004003 104303 001120 MOV STASEC .RS ZSTORE STARTING SECTOR NUMBER 
67 004005 100273 MOV R3, (ROS+ SIN INFO BLOCK 
004 104303 001121 MOV STASEC+1,R3 7GET HIGH ORDER 
69 004010 100273 MOV R3, (RO) ZSTORE IT 
70 004011 104303 001460 MOV URGRP R3 3GET CURRENT GROUP 
71 004013 100273 MOV , (ROS + T 
72 0046014 104303 001113 MOV CURTRK R3 :GET EURRENT TRACK 
73 004016 100273 MOV R3, (ROS + SSTORE IT 
74 004017 104070 001471 MOV RO, CURPNT ZSTORE POINT BACK 
75 004021 115400 001450 INC ERRCNT Z INCREMENT ERROR COUNT 
76 004023 103200 010000 001221 3$: BIC #BDTST,FLAG1 TCLEAR FLAG IN CASE IT WAS SET 
77 004026 115400 001113 INC CURT :D0 NEXT TRACK 
78 004030 104300 001130 000736 MOV SECTRK, TEMP [FOR ADD 
004033 114000 000737 CLR TEMP+1 ‘DITTO 
80 004035 104203 000736 MOV aTEMP ‘SET UP 
81 004037 104204 001120 MOV #STASEC,R4G :DITTO 
82 004041 021503 CALL  DADD [GET NEW STARTING SECTOR 
83 004042 104300 001120 001116 MOV STASEC, CURXBN SRESET CURRENT SECT 
84 004045 104300 oo1i¢1 001117 MOV STASEC#1 CURXBN+1 SRESET HIGH ORDER 
85 004050 104300 001130 001451 MOV SECTR »SECCNT SRESET SECTORS/TRACK 
86 004053 117400 001462 DEC RECNT ; NT COUNT OF TRACKS 
87 004055 053674 BNE p = DO NEXT TRACK 
88 004056 060022 XFC UPDATE [LET HOST KNOW He RE ALIV 
89 004057 115400 001460 INC CURGRP ELSE INCREMENT GROUP NUMBER 
90 004061 104207 001053 MOV #SCR,RO [POINT TO CHARACTERISTICS BLOCK 
91 004063 104673 000003 MOV TRKGRP(RO) R3 [LOAD TRACKS/GROUP 
92 004065 103203 177400 BIC #HIBYTE,R3- :CLEAR OUT HIGH GARBAGE 
93 004067 104030 00146 MOV R3, TRKCNT :STORE IN COUNTER 
94 004071 114000 00111 CLR CURTRK ‘RESET TRACK NUMBER 
95 004073 117400 001461 DEC GRPCNT DONE GROUPS ? 
96 004075 053660 E ZNO = DO NEXT GROUP 
97 004076 115000 001450 TST ERRCNT [ANY PROBLEMS 
98 004100 014305 BEQ [NOPE = FINISH 
99 004101 104205 006621 MOV #BDLST,RS :POINT TO BAD LIST 
100 004103 104250 001120 14$: MOV (R5)+, STASEC {GET STARTING SECTOR NUMBER 
101 004105 104250 001121 MOV (R5)+,STASEC +1 [GET HIGH ORDER 
102 004107 104250 001460 MOV (R5) +. CURGRP [GET GROUP NUMBER 
103 004111 104250 00111 MOV (R5) +, CURTRK :GET TRACK NUMBER 
104 004113 104203 001053 MOV #SCR,R3 ‘POINT TO CHARACTERISTICS 
105 004115 104670 900021 001455 MOV XBNCYL (RO) ,CNTCYL [GET NUMBER OF XBN CYLINDERS 
106 004120 117400 001455 DEC CNTCYL ;DECRERENT FOR ONE ALREADY DONE 
107 004122 104300 001132 000736 13$ MOV SECTCY, TEMP 3FOR ADD | 
108 004125 114000 00073 CLR TEMP+1 = CLEAR HIGH ORDER 
109 004127 104205 000736 MOV #TEMP,R3 [SET UP FOR ADD | 
119 o0ai88 Ostsog CALL #STASEC.RG SGET’ SECTOR NUMBER ON NEXT CYLINDER | 
Ie 004134 104300 001130 001451 MOV SECTRK, SECCNT SRESET SECTOR COUNT | 
113 004137 104300 001120 001116 MOV STASEC.CURXBN TRESET SECTOR NUMBER 
114 004142 104300 001121 00111 MOV STASEC #1, CURXBN#1 [RESET HIGH ORDER | 








- 
ot 
> 








UDA 

K OVERLAY (H2) 
115 004145 
116 004152 104 O01136 
117 004155 104 0011 
118 004160 104300 001460 
119 004163 Ocgene 
120 004164 11 99) 
121 004165 0733 
\$¢ 004166 105306 000740 
123 004170 104207 00072 
124 004172 nels 0062 
125 004174 100673 00000 
126 004176 1 001116 
127 004200 10067 
128 004202 104303 00111 
129 004204 103308 001325 
130 004206 101203 120000 
131 004210 100673 000003 
132 004212 104203 013400 
133 004214 1013503 001113 
134 004216 Hg 14 000004 
135 004220 104203 000726 
136 004222 100673 000005 
137 ooesse 104207 100721 
138 004226 104203 1 
139 004230 100673 000000 
it See Se 
142 boc334 115001 
143 004235 014277 
144 004236 102200 010000 
145 004241 054260 
146 004242 104207 000721 
147 004244 104673 3 
148 004246 103203 170000 
149 004250 IOs 110000 
150 004252 100673 000003 
151 004254 101200 010000 
152 004257 004212 
tS 004260 103200 010000 
1354 004263 
155 004270 117400 001451 
156 004272 054166 
157 004273 117400 001455 
158 004275 014306 
159 004276 004122 
160 004277 103200 006621 
161 004302 117400 001450 
162 004304 054103 
163 004305 000000 
164 004306 104207 003232 
165 004310 104201 000040 
166 poeels 060016 
167 004313 0043505 


001221 


001221 
001221 


001221 


118: 


16$: 


17$: 


et 
now 
AM 
ee ee 


DUBINC 
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CYLNUM 

CYLNUM, ISEEK+1 
CYLNUM+1, ISEEK+2 
CURGRP, 1SEEK +3 
SEEK 

R 

SKERR 

UNIT,R2 

#ROBLK ,RO 


#PRMBUF ,R3 
R3,RW.BUF (RO) 
BN 


RO) 
#<B1Ti5:RDBLK>, RO 
R3,RW.STAT(RO) 
SIP 
READ 
R1 


1 
eoetst. oFLAG1 


#BDTST,FLAG1 
#BDTST,FLAG1 
CURXBN 
SECCNT 

11$ 

CNTCYL 

12$ 

13$ 
#BDLST,FLAG1 
ERRCNT 
#WRN,RO 


#URNLN,R1 
MAINTR 
15$ 


z INCREMENT CYLINDER NUMBER 
GET LO ORDER WORD OF CYLINDER NUMBER 
3LOAD HIGH ORDER WORD OF CYL NUM 
AD GROUP NUMBE 


R 
;SEEK TO CURRENT CYL NUM 
ZANY y ER ore; Bi 


QUIT 
SDI INTERCONNECT 
POINT TO READ COMMAND BLOCK 
+ BUF FER —— NTER 
GET LOW RODER BLOCK or 
N COMMAND BLOCK 


STORE IN 
3LOAD oh a ORDER BLOCK NUMBER 
TING XBN BITS 


BLOCK 
sMAKE SURE NTING AT BLOCK 
ZRESET ys A POINTER 
7SYNCH WITH ee PULSE 
READ 1 SECTOR 
RROR ? 


NO = THIS HEAD 0O.K 
HAVE WE TESTED BAD HEADER CODE ? 


;YUP = 
POINT TO READ CONTROL BLOCK 
GET HEADER WORD 

;CLEAR HEADER 

SET IN BAD tore CODE 

STORE IT 

SET THAT WE TRIED BAD HEADER CODE 


zAND TRY GAIN 

sCLEAR BAD HEADER TESTED FLAG 
s INCREMENT CURRENT SECTOR 

4 ed SECTOR/TRACK COUNT 
sTRY IT AGAIN WITH NEXT SECTOR 
;DECREMENT CYLINDER COUNT 
sFAILED ON ALL sey ons = SEND WARNING 
sTRY NEXT CYLINDER 

SCLEAR FLAG TN CASE IT WAS SET 
;DECREMENT a ROR COUNT 
SCONTINUE TILL DONE ALL 

sALL DONE RETURN 

ADDRESS OF WARNING 

LENGTH OF WARNING 

SEND IT 


RETURN 
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1 3 

¢ ; CONVERT BLOCK NUMBER TO PHYSICAL ADDRESS AND SEEK 

; ; R4 => BLOCK NUMBER 

5 004314 104207 001424 tsi: MOV #CONBLK,RO :POINT TO CONVERT BLOCK 

6 004316 104143 MOV (R4) R3 [GET LOW ORDR 
004317 100673 000002 MOV R3,V2(RO) ‘STORE IT 

8 004321 104643 000001 MOV 1(R4) ,R3 sHIGH ORDER 

9 004323 103 03 170000 BIC bun CLR,R3 ;CLEAR HEADER 

10 004325 100673 000003 MOV R3,V2+1(RO) T 

11 004327 104201 001053 MOV #SCR,RI “POINT TO SUBUNIT CHARACTERISTICS 

12 004331 060020 KFC CvT CON ERT IT 

13 004332 104670 000011 001113 MOV TRK (RO) , CURTRK [GET TRACK NUMBER 

14 004335 104670 0 001077 MOV CYL(RO). ISEEK+1 SLOW ORDER XYLINDER 

15 004340 104670 001100 MOV CYL+1(RO), ISEEK+2 THIGH ORDER CYLINDR 

16 004343 104670 000010 001101 MOV GRP(RO), ISEEK+3 [GROUP NUMBER 

17 004346 022242 CALL SEEK :D0 SEEK 

18 004347 115001 TST 1 SANY ERROR 

19 004350 054352 BNE CKR1 : YUP 

20 004351 000000 RETURN 

21 004352 104201 000012 CKR1: MOV #10.,R1 ZSEEK ERROR 

22 004354 104207 001424 MOV #CONBLK RO SCONVERT BLOCK 

23 004356 104672 000006 MOV CYL (RO) *R2 [CYLINDER FAILD ON 

34 004360 022542 CALL _ ERRM TERROR RETURN 

26 

27 


a 









I 12 
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FCT WRITE OVERLAY (F9) 


-SBTTL FCT WRITE OVERLAY (F9) 


: 004361 DMOVLY F9,START 
4 ; WRITE AN FCT BLOCK 

6 : 

7 003623 104200 000030 001154 FCTWRT: MOV #F9, CUROVL sFOR INIT 

8 003026 114005 CLR R5 SCLEAR ERROR COUNTER 

9 003027 104050 001246 MOV R5,NEXT1 ZINIT NEXT COPY COUNTER 

10 003031 104204 001257 MOV #FCTCNT,RG :POINT TO FCT BLOCK NUMBER 
11 003033 104203 001463 MOV #ONE ,R3 [FOR SUB 

1 003035 021521 CALL uB 7SUB TO GET RIGHT ONE 

13 003036 104305 00125 MOV BUF PNT RS :GET BUFFER POINTER 

14 003040 104303 001144 FCTRLP: MOV LBNCYL.R3 [GET LBN CYLINDE 

15 003042 104207 001424 MOV #CONBLK,R ZPOINT TO CONVERT BLOCK 

16 003044 100673 000000 MOV R3,V1(R ZSTORE FOR CONVE 

17 003046 104303 001145 MOV LBNCYL+1,R :GET HIGH ORDER 

18 003050 100673 000001 MOV R3,V141(RO SSTORE IT 

19 003052 104303 001130 MOV SECTRK,R3 [GET SECTORS/TRACK 

20 003054 100673 000004 MOV R3,V3(RO) SSTORE IT 

21 003056 022665 CALL Cvfsk [CONVERT AND SEEK 

22 003057 104207 000721 MOV #URBLK RO [POINT TO COMMAND BLOCK 

23 003061 104203 122400 MOV #WRCMD,R3 [GET WRITE COMMAND 

24 003063 104308 001113 MOV CURTRK .R2 [GET CURRENT TRACK 

25 003065 10102 BIS R2, SSET TRACK FOR WRITE 

26 003066 100673 000004 MOV R3,RW.CMD(RO) ZSTORE IN COMMAND BLOCK 

37 003070 10405 MOV 5°R2 ‘POINT TO BUFFER 

8 003071 0226 CALL cebc [COMPUTE EDC = RETURNED IN R3 
29 003072 100623 000400 MOV R3,RW.EDC(R2) SSTORE IT 

30 003074 100672 000001 MOV R2,RW.BUF (RO) [STICK IN COMMAND BLOCK 

31 003076 10414 MOV (R4) R3 [GET LOW ORDER HEADER 

32 003077 100673 000002 MOV R3,RW.LOWC(RO) TSTORE IN WRITE BLOCK 

33 003101 104643 000001 MOV 1(R4)R3 [GET HIGH ORDER 

34 003103 105303 001325 ADD ST.XBN,R3 ZADD STARTING XBN BITS 

35 003105 101203 120000 BIS #HD.XBN,R3 :SET HEADER 

36 003107 100673 000003 MOV R3,RW.HI (RO) ZSTORE IN WRITE BLOCK 

37 003111 104203 000726 MOV #HSLIM-1,R3 [GET DUMMY SDI POINTER 

38 003113 100673 000005 MOV RS, Ru. DUACRO) [POINT IN COMMAND BLOCK 

39 003115 104303 001321 WRITES: MOV PREA,R [GET HEADER PREAMBLE 

40 003117 104304 001322 MOV DPREA,R4 [GET DATA PREAMBLE 

41 003121 104302 000740 MOV IT,R2 [SET UNIT 
42 003123 104207 000721 MOV #WRBLK,RO [MAKE SURE POINTING AT BLOCK 
43 003125 101207 100000 BIS #B1T15.R0 7SET NO RVECTORING 

44 003127 960012 XFC IP 3WAIT FOR SECTOR PULSE 

45 003130 06000 XFC WRITE “WRITE SECTOR 

46 003131 115001 TST 1 SANY ERROR ? 
47 003132 013157 BEQ F WGOOD : 
48 00313 106500 001477 001501 CMP RETRY, TMPTRY [MAX ? 
49 003136 013142 BEQ 1$ TYES = TRY SOME RECOVERY 

50 003137 115400 001501 INC TMPTRY SINC RETRY COUNT 

51 003141 003115 BR WRITES 7D0 RETRY 

32 003142 104303 001502 1$: MOV RECTMP,R3 [GET CURRENT ERROR RECOVERY LEVEL 
53 003144 073156 BMI SIF NEGATIVE THEN FRIED 

54 003145 115000 001500 TST RECOV z1S THERE ONLY RECOVERY LEVEL 0 ? 
55 003147 013151 BEQ 3$ 7YES = NO NEED TO ISSUE IT - JUST RETRY 
56 003150 022571 CALL § ERRHND sTRY RECOVERY 

57 003151 114000 001501 38: CLR TMPTRY SFOR INIT 








SEQ 359) 





SEQ 360 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 90-1 
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58 003153 117400 001502 DEC RECTMP :DECREMENT It 
59 003155 003115 BR WRITES SRETRY 
60 003156 2s: 
61 003156 115405 INC RS :YUP = INCREMENT COUNTER 
62 003157 115400 001246 FWGOOD: INC NEXT i INCREMENT IT 
63 003161 114000 001501 CLR :FOR RESET 
64 003163 104300 001500 001502 MOV RECOV RECTMP GET RECOVERY LEVELS 
65 003166 104204 001257 MOV #ECTCNT,RG 3FOR ADD 
66 003170 104203 001241 MOV #FCTEMT.R3 FOR ADD | 
67 003172 021503 CALL DADD ‘POINT TO NEXT COPY | 
68 003173 106300 001245 001246 CMP FCTCPY,NEXT1 ; DONE THIS SECTOR ? | 
69 003176 053040 BNE FCTRLP :NO = WRITE NEXT FCT copy 
70 003177 106305 001245 CMP FCTCPY,RS ZERROR ON EVERY WRITE ? | 
71 003201 013223 BEQ FCWERR [YUP = BIG TROUBLE 
72 003202 104303 001246 FCFXLP: MOV NEXT1,R3 ZANY REAPEATS ? 
73 003204 013215 BEQ FWTDON 
74 003205 104204 001257 MOV #FCTCNT,RG :T0 GET IT BACK 
75 003207 104203 001241 MOV #ECTEMT.R3 ‘DITTO 

003211 021521 CALL DSUB 
77 003212 117400 001246 DEC NEXT1 7SU8 IT 

003214 003202 BR FCFXLP sREPEAT 
79 003215 FWIDON: DUBINC FCTCNT [PUT BACK THE WAY IT WAS 
80 003222 000000 RE TURN 
81 003223 104012 FCWERR: MOV R1,R2 zXFC ERROR CODE 
82 003224 104201 000017 MOV #15. ,R1 ‘RCT WRITE ERROR 
83 003226 022542 CALL  ERRMNT TERROR RETURN 
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PBN->D,X,L.RBN CONVERSION OVERLAY (G5) 


1 .SBTTL PBN->D,X,L,RBN CONVERSION OVERLAY (G5) 
¢ 003227 DMOVLY G5,START 

4 ; CONVERT FROM PBN TO D,X.L,RBN 

g 003023 103200 170000 001112 PCON: BIC #HD.CLR, CURPBN¢1 ZCLEAR THE HEADER 

003626 104205 001155 MOV #HGHPBN.R3 SHIGHEST PBN IN LBN AREA 

8 003030 104204 001111 MOV #CURPBN.R4 :CURRENT PBN 

9 003032 021623 CALL OCMP ‘1S IT LBN OR RBN ? 

10 003033 033117 BPL LRBN SYUP = 30 COMPUTE IT 

11 003034 021521 CALL SUB ‘SUBTRACT HIGH LBN PBN 

1 003035 104203 001140 MOV #XBNSEC,R3 STOTAL XBN SECTORS 

13 003037 021623 CALL OCMP SIS IT AN XBN ? 

14 003040 013042 BEG DBNFND ‘NOPE = THE FIRST DBN 

15 003041 03307 BPL XBNFND SYUP = GO FIXI 

16 003042 104204 001111 DBNFND: MOV #CURPBN, RS TELSE DBN = GET VALUE 

17 003044 104203 001140 MOV #XBNSEC,R3 [TOTAL XBN SECTORS 

18 003046 021521 CALL  DSUB SUBTRACT TO GET RELATIVE DBN 
19 003047 023250 CALL  CONGRP [COMPUTE THE ‘OFFSET’ SECTOR 
20 003050 104203 001130 MOV #SECTRK,R3  SECTORS/TRACK 

21 003052 104204 001171 MOV #CURPEN,R4 : TRACK 

22 003054 021537 CALL DMUL sMULTIPLY TO GET STARTING PBN ON TRACK 
23 003055 104203 000731 MOV #DDUMMY ,R3 ‘SECTOR ON TRACK 

24 003057 021503 CALL _——DADD tADD TO GET ACTUAL PBN 

25 003060 104641 000001 MOV 1(R4),R1 [GET HIGH ORDER 

26 003062 105301 001326 ADD ST.DBN,R1 SADD TO GET ABSOLUTE DBN 

27 003064 105201 170000 BIC #HD.CLR,R1 SCLEAR THE HEADER 

28 003066 101201 14 BIS #HD.DBN.R1 [MARK AS D 

29 003070 104010 001112 MOV R1,CURPBN¢1 SSTORE BACK 

30 003072 003241 BR PDONE CLEAN UP AND, RETURN | 

31 003073 023250 XBNFND: CALL  CONGRP [COMPUTE THE "‘OFFSET’’ SECTOR 
32 003074 104203 001130 MOV #SECTRK,R3 : SECTORS/ TRACK 

33 003076 104204 001111 MOV #CURPBN.R4 TRACK 

34 003100 021537 CALL MUL [MULTIPLY TO GET STARTING PBN ON TRACK 
35 003101 104203 000731 MOV #DDUMMY ,R3 [SECTOR ON TRACK 

36 003103 021503 CALL DADD [ADD TO GET ACTUAL PBN 

37 003104 104641 01 1(R4),R1 [GET HIGH ORDER 

38 003106 105301 001325 ADD ST.XBN,R1 [ADD TO GET ABSOLUTE XBN 

39 003110 103201 170000 BIC #HD.CLR,RI [CLEAR HEADER 

40 003112 101201 120000 BIS #HD.XBN.R1 [MARK AS X 

41 003114 104010 001112 MOV R1,CURPBN¢1 [STORE BACK 

4@ 003116 003241 BR PDONE [CLEAN UP AND RETURN 
44 3 
45 003117 023250 LRBN: CALL CONGRP :COMPUTE THE OFFSET SECTOR 
46 003120 104205 001053 MOV #SCR,RS [POINT TO CHARACTERISTICS 

47 003122 104653 000011 MOV LBNTRK(RS) ,R3 [GET LBN/TRK 
48 003124 103203 177400 BIC SHIBYTE ,R3 [CLEAR HIGH BYTE 
49 003126 104201 000731 MOV #DDUMMY RI ‘POINT TO REMAINDER 

50 003130 104114 MOV (R1) ,R4 GET IT 

51 003131 106043 CMP R4,RS : COMPARE 

38 003132 073205 BMI LBNF ND [IF MINUS THEN LBN 

53 003133 104653 000004 MOV RBNTRK (RS) ,R3 [GET RBN/TRACK 

54 003135 103203 177600 BIC #HIIBYTE RS [CLEAR OUT GARBAGE 

55 003137 104030 0007 MOV R3, TEMP *STORE IT 

56 003141 114000 00073 CLR TEMP+1 [FOR STORE 

57 003143 104203 000736 MOV #TEMP,R3 SFOR MULTIPLY 








58 003145 


95 003247 





rs 
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001774 
000731 
000 


#CURPBN,R4 
DMUL 


#DDUMMY ,R4 
LBNTRK(RS) ,R3 
#HIBYTE,R3 


Ss 
#CURPBN,R4 
#DDUMMY ,R3 


na—Oo 


#HD.RBN,R1 
R1,CURPBN+1 
PDONE 


#CURPBN,R4 
tap bbe Tt 2 Toa 


CURPBN,CU 


. CURBN 
CURPBN+1 , CURBN+1 


2FOR CLEAR 

POINT FOR SUBTRACT 
SUBTRACT TO GET RESIDUE RBN 
:TO_GET RBN NUMBER 
GIVES RELATIVE RBN 

GET HIGH ORDER 

zADD TO GET ABSOLUTE RBN 
CLEAR TH EHADER 

SET AS A RBN 

STORE BACK 

CLEAN UP AND RETURN 






DITTO = NUM OF TRACKS 


MULTIPLY BY TRACK NUMBER 
3FOR SUBRACT 

3GET LBN/TRK 

CLEAR HIGH BYTE 

STORE 


IT 


MULT NUM OF TRACKS 
GET LBN/TRK 
oeteN as BYTE 


FOR CLEAR 


POINT FOR MULT 

2GET 'S 

sPLUS RESIDUE 

: S LBN NUMBER 

:POINT TO CHARACTERISTICS 
:GET HIGH OR 


zADD TO GET ABSOLUTE LBN 
ae HEADER 


HIGH ORDER 
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001130 000731 foNGRP: 


001053 
000003 
177400 


000001 
001053 


000002 
177400 


001053 
000011 


177400 


000001 


000001 
001130 


000001 


000001 


1$: 


3$: 


5$: 


COMPUTE TRACK NUMBER AND SECTOR NUMBER INCLUDING OFFSET 


MOV 
CLR 


SECTRK ,DDUMMY 
DDUMMY +1 
#DDUMMY ,R3 
#CURPBN ,R4 


DDIV 
(R4),R1 


#SCR,RO 
TRKGRP(RO) ,R1 
#HIBYTE,R1 
R1,(R3) 

DDIV 

(R4),R1 
7(R4),R1 

4$ 

#SCR,RO 
GRPCYL (RO) ,R1 
#HIBYTE,R1 
DDIV 

(R3) ,R1 

4$ 

#SCR,RO 
OFFS(RO) ,R2 
#HIBYTE,R2 
R2 

4$ 

R2, (R4) 
R2,1(R4) 

DMUL 

R2 

(R4) RS 
R2,R5 

R5, (R4) 

R2° 

R2,1(R4) 
SECTRK,R1 

R1, (R35 
R2.1(R3) 
DDIV 


R 
R1,1(R4) 
R1 


GET SECTORS/TRACK 
CLEAR HIGH ORDER 
sFOR DIVIDE 


0 

{DIVID E nent thace TO GET TRACK # 
GET CURRENT TRACK 

;SAVE IT ON S TA 

DITTO HIGH ORDER 

3SAVE_ AGAIN 

21S LOW ORDER TRACK 0 ? 
;NOPE = TRACK # CAN'T BE 0 
Ht “x wei TRACK 0 ? 

YES = OFFSET OR NEED TO GO ON 
3GET CURRENT SECTOR NUMBER 


SPOINT TO CHARACTERISTICS BLOCK 
LOAD TRACKS/GROUP 


sGROUP IS 0 = NO OFFSET 
;POINT TO CHARACTERISTICS 
GET GROUPS/CYLINDER 
CLEAR OUT GAR 
STORE GROUPS/CYLINDER 
:DIVIDE TO GET RELATIVE GROUP 
T | we a NUMBER 
IF ZERO THEN DONE = NO OFFSET 
;POINT TO OST 


: L 
;CLEAR phe GARBAGE 
sANY OFFSET ? 
NO - NO NEED TO FIX UP 
MULT 


; E 
;MULTIPLY GROUP*OFFSET 
sRESTORE weirs, SECTOR 
3GET TOTAL _OFFSET 

sore a ad SECTOR NUMBER 


SFOR STREO 


CLEAR HIGH ORDER 
SECTOR’ S/TRACK 


DER 
REMAINDER IS NEW SECTOR NUMBER 
:RESTORE TRACK NUMBER LOW 


RESTORE TRACK NUMBER HIGH 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 92-1 


PBN=>D,X,L,RBN CONVERSION OVERLAY (G5) 


SECTOR NUMBER 
sSTORE IT 


zFOR STORE 
CLEAR HIGH ORDER 
;AND EXIT 
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1 ~SBTTL ERROR MESSAGE OVERLAY (G6) 
5 : ERROR MESSAGE OVERLAY 

3 003373 ? DMOVLY G6,START 

7 003623 104207 001264 : MOV #OMBUF ,RO zPOINT TO BUFFER 
8 003025 104671 000001 MOV 1(RO) ,R1 [GET SUB CODE 

9 003027 104172 MOV (RO) ,R2 3GET ERROR NUMBER 
10 003030 11740 DEC R2 3MAKE RELATIVE TO 0 
11 003031 11020 ROL R2 sMULTIPLY BY 

12 003032 105202 003441 ADD #ERRTBL,R2 ZOFFSET TO MESSAGE ADDRESS 
13 003034 10412 MOV (R2) ,RO 3MESSAGE TO SEND 
14 003035 104621 000001 MOV 1(R25,R1 ‘LENGTH OF MESSAGE 
15 003037 060016 XFC MAINTR SEN 

16 003040 000000 RETURN 360 BACK AND DIE 
18 -ENABL 

19 003041 050001 M.ER1: .WORD 50001 
20 003042 107 105 124 easciz ‘GET STATUS failure’ 
21 fRAAAAAAAAARAAAAAEEEEEEEAEEEEEAEEREREREREERERE! RHRREKEEEE 
22 003054 050002 M.ER2: .WORD 50002 
23 003055 123 104 111 easciz ‘SOI send error’ 
24 J RAARAAAAAAAAARARERREEEEEEEEEEREEAEAAAEREREREREREREEREEEEEE 
25 003065 050003 M.ER3: .WORD 50003 
26 003066 125 156 163 -asciz ‘Unsuccessful SDI command’ 

7 SSEAAAAAAAAAAAAARARAAEAAAAAEAAEAAKAEAAAAARARARARAAERARAAAEEEE 
$f 003103 050004 -ERG: . 50004 
29 003104 123 104 111 easciz ‘SDI receive error’’ 

30 fF RARAAAEAAAEAAAAEEAEEE EAE EEEEEEERAARERREREREREAREREREREEE 
31 003115 050005 M.ERS: .WORD 50005 

32 003116 125 116 111 .asciz ‘UNIBUS I/O error’’ 

33 fF RAAAAAAAAAEAAARAAAAEEEEEEREEAEEAERERAAAERERAEREREREREREE 
34 003127 050006 M.ER6: .WORD 50006 

35 003130 106 157 162 easciz ‘formatter initialization error” 

36 SSHRAAAAAAEARAAARARAEAATAAAAARARAAAAERARARAARAARAEARAREREREEEE 
37 003150 050007 M.ER7: .WORD 50007 

38 003151 116 157 156 easciz ‘Non-existant unit number’ 

39 SRAAAAAAAAAAAAARARAAAEAAAAAAAATAAASARARARAARARRAARAREAAAREREE 
40 003166 050010 A.ER8: .WORD 50010 
41 003167 104 102 116 -asciz ‘DBN/XBN format error (FORMAT XFC failed)’’ 
*$ J RAAAAAAAAAAAEAETAAAAEEEAEEEAAAEAEAEAAAAEAEAREEREREREEEREE 
43 003214 050011 M.ER9: .WORD 50011 
44 003215 106 103 124 easciz ‘FCT check error’’ 

REAAEAAAAAAAAARAAAAAAAAAAAAAAAAEAAARARAERAAAARERARAEREEE 

46 003225 050012 M.ER10: .WORD 50012 

7 0032 123 105 105 easciz ‘SEEK error’ 

8 SRAEAAAAAAEARERARARAERAEAEAAEAAAERERAAAAAAAARARAARAREEAEAREREEE 
49 003234 050013 M.ER11: .WORD 50013 

50 003235 122 103 124 -asciz “RCT check error’’ 

51 SREEAAAEAAAAAAAAAAARAAAARAERAAAAAAAAARAAARERARARERREREREREERE 
52 003245 050014 M.ERI2: .WORD 50014 

53 003246 114 102 116 easciz ‘“‘LBN format error (FORMAT XFC failed)*’ 
54 SREAAAAAAARAAAEAARAAAAAERAEATAAAAEAAERARARAAARARARERAREREEAEEE 
55 00 050015 M.ER13: .WORD 50015 

56 003272 106 103 124 easciz ‘FCT write error’ 

57 FRAAAEAAAAAAAAAAAAHHEAEAAAAAAEEAEAAAAEAAAEEAAEAAEEEEAEEE 


05001 
128 
050017 
122 
050020 
122 
050021 
106 
050022 
106 
050023 
106 
050024 
104 


050025 
111 


103 


103 


103 


103 


103 


103 


162 


156 


124 


124 


124 


124 


124 


124 


151 


166 
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M.ER14: .WORD 50016 
sciz ‘RCT read error’ 


oO 
SREAEAEAAAAAAARAAAAEREREAERAREARAREAAAAERAARAAAAAAAEEAAEEEERE 


M.ER15: .WORD 50017 
sasciz “RCT write error’ 
{7777 gue “> tenceccechimemee ea tommimcenree 
M.ER16: 50020 
on * "RCT full’’ 
fs REAAAAAAAAEEAAAEREREREEERERERERERERAAERERERAEEEEEREREEEE 
M.ER17: .WORD 50021 
easciz ‘FCT read error’ 


RARER AEEAAEAEAAEEEEEEEEEEEEEEEAERARERRERREEREEREEEEED 


M.ER18: .WORD 50022 
casciz “FCT non-existant’ 
J RAAAAAAAEAAAERERERAAEEEEEEEEEEEEAEAARAEREREREREAEREREKEKE 
M.ER19: .WORD 50023 
easciz ‘FCT Down Line Load error (FCT block not 
J RRAARAAAARERAAEEAEEEEEEEEEEEEREEEAAAEAAAEREEREEEREEKEREE 
M.ER20: .WORD 50024 
asciz ‘Drive init timeout’’ 
peeeeeeneeeeneeneereeeereetetereeeeeeeeeeeees: RRERAEEERE 
M.ER21: .WORD 50025 


casciz ‘Invalid response to question’ 
J RAAAEAAEAAEAAEAEEEREREAAAEEEEAEAAAEAEREREAAREEEREEREEEEE 


M.ER22: 
-DSABL LC 


avbl.)*’ 
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ERROR MESSAGE POINTER TABLE 


.ER1 
M.ER2-M.ER1 
M.ER3-M.ER2 


“M.ERI2 
14-M.ER13 
15-M.ER14 


—— 
Wwn 


—— 
Wns 


_ 
co 


R20 


sMESSAGE 1 
sLENGTH OF 
ME 


[LENGTH OF 


sMESSAGE 6 


$ GE 

;LENGTH OF 
sMESSAGE 1 
sLENGTH OF 


[LENGTH OF 
[LENGTH OF 
[MESSAGE 1 


LENGTH OF 


; A 
LENGTH OF 
2MESSAG 
LENGTH OF 
sMESSAGE 1 
sLENGTH OF 
sMESSAG 
LENGTH OF 






MESSAGE 
MESSAGE 


MESSAGE 
4 


MESSAGE 
MESSAGE 


Da SSAGE 
: MESSAGE 


MESSAGE 


MESSAGE 
4 


MESSAGE 
MESSAGE 


MESSAGE 
7 


MESSAGE 
MESSAGE 


sMESSAGE 19 


LENGTH OF 
sMESSA 
LENGTH OF 
sMESSA 
sLENGTH OF 


MESSAGE 
MESSAGE 
MESSAGE 
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SEQ 368) 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 94-1 
SYMBOL TABLE | 
001025 CLELP 903061 CURXBN 001116 DMBUFL= 000016 FCTAVL= 000001 
ACCESS 002226 CLELP2 003051 CUTOF 001236 DMUL 001537 FCTBAD= 000004 
IN oo 3878 CLESKP 003117 cvT = 000020 DOL 23 FCTCK 003032 
LOVR 005 LEWRT 003743 CVTERR 002721 DONDLL 003424 FCTCKD 003267 
Ov1 002570 CLHERE 003756 CVTSK 002665 DONE = 000021 FCTCKE 003316 
AQUT 002353 003644 = DONFCT 003643 FCTCLP 003112 
TN = 2 RLP 003652 CYLBN = 000000 DONONE 003547 FCTCL1 003115 | 
ATTN1 002344 CLSKP2 003140 CYLNUM 001126 DPBN 005277 FCTCNT 001257 
BADEDC 001447 CLSKP3 003154 C512 = 000016 DPREA 001322 FCTCPY 001245 
BADPBN 001224 CLSKP4 003153 ADD 001503 DSUB 1521 FCTEMT= 000002 
BAD 003616 = 006621 DADD1 001512 DUPOVL= 007774 FCTFLG= 000025 
BD = 020000 CMPDAT= 900006 DASH = 000055 DWRD 001445 FCTFMT 001241 
BDHD = 000040 P 00403 TA = 000005 DXBN 003035 FCTNOT 003220 
BDIRCT 004701 CNLP1 004031 DATAGN 003625 003432 FCTNPD 00126 
BDLST = 006621 CNT 001250 DATBUF 003243 DXCHEC 003431 FCTPTR 001256 
BDOTST = 010000 CNTCYL 001455 DATCON 003464 340 FCTRCT 66 
BITO = 000001 CONBAD 004261 ATE 001302 DXFCPG 003341 FCTREV 001312 
BIT1 = 000002 CONBLK 001424 DATERR 003702 DXFCP1 003360 FCTRLP 
BIT10 = 002000 COND 004113 ATLP 003476 DXFORM 003070 FCTSKP 003437 
BIT11 = 004000 CONDO1 004115 DATLP1 003567 DXTRK 003026 FCTSK1 003431 
BIT12 = 010000 CONERR 004116 DATLP2 003612 EAGAIN 002607 FCTSLP 36 
BIT13 = 020000 CONER1 004121 DATRET 003623 CC = 000015 FCTSP 003733 
BIT14 = 040000 CONEXT 004272 DATRT1 003624 ECCCK 003000 FCTSZ = 0000 
BIT15 = 100000 CONGRP 003250 DATVER 0036 CCF = 010000 FCTUSD 003204 
BIT2 = 000004 CONINT 003036 DATVL1 003672 ECHO = 000010 FCTWRT 00302 
BIT3 = 000010 CONLOW 004107 DATVL2 003701 C 001446 FCWERR 003223 
BIT4 = 000020 c 005427 DAYS = 03603) E IMAGE 1232 FDAT = 
ITS = 000040 CON1EX 4275 DBBAD 001315 EMAX 1226 FDLL 46 
BIT6 = 000100 001476 DBBUFE= 003430 ENTRY 000714 FERR 003330 
BIT7 = 000200 001040 DBLEN = 000034 EORCT 003147 FIDANS 004220 
BIT8 = 000400 CR.ACC 000766 DBN = 000010 ERCV = 000002 FIDNUL 004233 
BIT9 = 001000 CR.CLR 000772 DBNCYL= b00022 ERDN = 000010 FILLIT 003637 
= 020040 -DIS 000756 DBNFND 00304 ERECOV 001103 FINCHK 003023 
BLKFND 003157 -ERV 001006 DCLR 001027 ERFLAG 001222 FINDON 004216 
BMAX = 007775 CR.GCR 000746 DCMP 001623 ERLEN = H FINI = 040000 
BOTTOM 003276 CR.GSR 000752 DCMP1 001646 ERPNT 00125 FINLEN 004201 
003774 CR.GST 900748 DCMP2 001641 ERR 001227 FINLN1 004203 
EAK = CR. 00101 DCMP3 001654 ERRBUF 001225 FINMSG 003172 
BSTGS = 002 CR.RCL 001002 DCMP4 001634 ERRCNT 001450 FIXBLK 003445 
BUFMSK= 007777 cR. 000762 DDIV. 001565 ERR 002571 FIXFCT 003766 
BUFPNT 001254 CR.SEK 000776 DDUMMY 000731 ERRMNT 002542 FIXIT 004001 
BUF1 = 0045 cs 004130 = 000020 ERR 003440 FIXLP 0034 
BUF2 = 005152 CSKIP 003454 DECALP 003664 ERRSYM= 000002 FKIP1 004051 
BUF3 = 005567 CSKIP1 003466 DECASC 003660 ERR 002073 FKIP10 004075 
BUFS4 = 006204 CSKIP. 346 DINIT = 000011 ERRTBL 003441 FKIP2 004035 
BUFS = 006621 CSKIP 003726 IS 001028 7 FKIP9 004420 
BUF6 = 007321 CSKI 00367¢ DISCON 00231 EXTFCT 004 FKP 004066 
CBUF 001441 CSKIP7 00373 DLERR 00 ¢ EXTRET 00425 FLAG 001220 
CDONE 003777 $1 004314 DLERT 00344 EXTRT1 004260 FLAG? 001221 
CEDC 002600 001114 DLL = 000400 FBDHD = oF IP 003112 
CHAR 001765 CURGRP 001460 LLON 003776 FBEGIN 3 ¢ FLIPON= 000400 
CHRONE= 010000 CURLBN 001116 DLLDN1 003777 FBEG 03 6 FLKIP1 004374 
004166 CUROVL 001154 DLLFLE 00 768 FCFXLP 08 FLKIP2 004 
CKR1 004352 001111 LLNO 004 FCLR = 17776 P1 004411 | 
CLBUF = 007321 CURPNT 001471 DLLRET 003421 FCMSG 001317 FMSTL = 10 
CLEAR 0022 CURRBN 001107 DLLRT1 003405 FCNT 001 39 FMTSTA 03 24 
CLEDON 003147 CURTRK 001113 DMBUF 001264 FCPG 00357 FODONE 003206 
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SYMBOL TABLE | 
3034 HD.PRV= 050000 LECTNT= 000012 LSKIP2 0034632 M.ERS 003127 | 
FORERR 003366 HD .RBN= 0000 LFCTUS= 000014 LSKIP og4198 M.ER 003150 
. "REV= 030000 LFERR 0033 [SKIPS 0031 ". 003166 
FPRIM = 020000 "XBN= 120000 LFINMS= 00001 LSKIP6 003641 ; 003214 | 
FRCPY = 000001 e IXIT 0043 LSKIP? 004173 = 126736 | 
FRDONE 003721 HERE 003602 LFORM 003023 LSKIP8 003565 M576 = 074161 | 
FRSKP 003715 HGHPBN 00115 LHERE 003547 LSKIP9 004153 N 001452 | 
FSER = 000002 HIBYTE= 177400 LKIPIO 003520 LSND 004130 NDLL = 004000 
FT.BUF= 000000 HIIBYT= 177600 LKIP12 003330 tTo ~—»-001251 NEXT 002403 
FT-HI = 000002 HI2BYT= 177700 LKIP2. 003051 LTRK 003023 NEXT 001246 
“LOw= 000001 IP 003031 LKIP20 003137 MAINTR= 00001 NEXTS 002410 
FWGOOD 003157 HKIP1 00305 LKIPR1 003146 MAINTW= 00001 NG $324, 
FWRD 001442 dD 001230 LKIP22 00526 = 000200 NGD1 0032 
FWTDON 003215 HOLDBN 00112 LKIP2$ 003237 MARBAD 003465 WN1 001454 
Fl = 000000 HOLDPN 00114 LKIP24 003247 MASK = 000000 NO 003322 
F2 = 000003 RBN 001192 LKIP25 003343 MAXTRY= 000010 NOCERR 004065 
FS = 000006 HPREA 001321 LKIP3? 003273 MENTLN= 000002 CRY 002621 
F4 = 000011 HSLIM 000727 LKIP28 003523 EN 003246 NODLL 003070 
FS = 000014 HSTHI = 000002 LKIP99 003507 MNCNT 001263 NOERR 003565 
F6 = 000017 HSTLO = 000001 LKIP30 003556 E 004015 NOFCT = 100000 
F? «= 000022 Hl = 000055 LKIP31 003561 MSGLOP 00335~ NOGOOD 003265 
FB = 000025 H2 = 000066 LKIP33 003541 MSGLP2 003414 NOINC 003120 
F9 «= 000030 IMAGE = 007321 LKIP4 003500 MSGLPS 003421 NOL 3461 
GCR 001017 IMLEN = 000003 LKIPS 003444 MSGLP4 003612 NOSEK 003332 
GDBLK = 005567 IMSTAR 001320 LKIP? 003540 MSGOFF= 000001 NOTHER 004307 
GDECC 003022 INDSEC= 0000 LKIP8 003131 MSGTBL 003924 NOTR 003202 
004274 IMI 7. 901247 LKIP9 003115 SGI 3030 NOTY 534 
GENCON 004015 INIRCT= 02 {LEN = 000015 MSGILN= 000016 NUM 1440 
GETUNT 004134 INITDD 002377 LMORE 004340 MSG2LN= 000022 003355 
GOBAD 000020 INITIT 002331 LNOERR 003532 G4LN= 22 NUMLBN 3060 
004147 INITL 004330 ‘0. = 007777 MSGSLN= 000026 NUMRBN 003120 
GOVER1 004143 INITPT 002362 002152 LN= 00003 NUMXBN 003405 
P= 000010 INITP1 002367 LOADER 002229 MSG7LN= 000016 NI 001453 
GRPCNT 001461 INITS 2340 OAD2 002177 MULDN 0041 OCDONE 003207 
GRPCYL= 00000 NPEL = $ 003203 MULERR 004137 OCLOOP 003062 
GSKIP 004252 INPERR 003234 LOAD4 002217 MULER1 W7¢ OERR 002417 
GSKIP1 004167 INST = LOADS 002157 LPC 00073 OERR2 002426 
GSKIP2 004205 IRECAL 001102 LOBL. = 0 MULTIO 004142 OFATAL 003331 
GSKIPS 004224 ISEEK 001076 LOBYTE= 000377 LT2 004126 OFFS = 000011 
001020 ISKIP 003603 LOK 004163 MERIT 003041 OFFSET 000736 
001016 LAGAIN 003443 LONGTO= 4 MERIO 003225 003723 
GSTATS 001657 LAST = 100000 LOOP 003120 MIER11 003234 OLDONE 003326 
GTFLAG= 002000 L 001313 LOOPP 003201 MIERI2 003245 E 001463 
G1 = 000060 LBNCYL 001144 LOOPP2 003153 AERIS 003971 ONLIN 002323 
62 = 000033 LBNFND 003205 LOOP1. 002012 R-ERI4 003302 ONLINE 001105 
63 = 000036 LBNHOS= 000012 Loore 902036 MIERIS 00331 OQUIT 003352 
G6 = 000041 LBNLBN 001134 OOPS 003431 R-ERIG 005324 ORFTAL 003331 
G5 = 000044 LBNPCY 001146 LOVER 004225 MERI? 003382 OVCNT = 000023 
66 = 000063 LBNTRK= 000011 LOVER? 004320 M-ERIB 00334 OVER 903500 
G7? = 000047 LBUFE = 003300 LOVER2 004264 MIERI9 003355 OVER] 003774 
68 = 000052 LCHEC 003377 LOVERS 004955 M-ER2 005054 OVER2 003743 
HASH 003024 LDONE 004323 LOVERS 004243 MER20 003406 OVE.F1= 00302 
HD-BAD= 110000 LEN = 000000 LPBN 003160 MERS1 003421 OvE.F2= 00302 
HD.CLR= 170000 LERR 003515 LRBN 003117 M.ER22 003441 OVE .F3= 00 
HD.CUR 001457 LER1 003656 LREDO 004407 [ERS 003065 OVE -F4= 00 
HD DBN= 140000 LER2 003665 LSKIP 003421 M-ERS 003105 OVE-FS5= 0030 
HD-LBN= 000000 LERS 003653 LSKIP1 003433 MIERS 003115 OVE .F6= 0030 


=eogeeans: 


oeoeseeseee¢ 
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OVS.H2= 037742 
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ect 003377 


Dx 

8 
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Be 

So 
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ae 
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g 
Ssoosss 


xz 
mm 
525 
“ 
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RELEN 100 
REPEAT= 0010 
RESTAB 00327. 


003374 
01477 


333s 
SRAAE 


— 
ad 


MENS 
WERNONG 


Reo 


RrRwMn 


002301 


Wow 
WA 


= 
= 
™ 


sesseseses 
5 3305 5 


Nm 


001793 
004000 


TFLAG= 
001745 
LBN = 000002 


—— ~——-- sy 
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SEQ 371! 
UDAFM = UDA FORMATTE® NMACR X04.01 23-AUG-82 14:02:32 PAGE 94-4 | 
SYMBOL TABLE | 
Sto «001252 TALKP 002070 TKIP9 003140 UREAD = 000013 AGAIN 003577 | 
STPNIC 002005 TALKRT 002062 TMPTRY 001501 USDFCT 003636 XBBAD 001316 
STRBN = 00000 TATINI 002141 TOTRCT 001472 UWRITE= 000014 NBBUFE= 003466 | 
STSC = 00001 TBLK. 001235 TRK = 000011 VAXTME 004277 XBLEN = 0000 | 
STSKP 002002 TBUFF 003247 TRKCNT 001462 VERHD 003606 XBNCYL= 000021 
STSK1 00167 TBUFFL= 000051 TRKCYL 001142 VLD. = 000004 XBNFND 003073 | 
STWLK 001757 TCLEAR 002075 TRKGRP= 000003 VLD1 = 000010 XBNIT 003145 
STXBN = 00000 0736 TWO 3575 Vi = 00 XBNSEC 001140 
ST.0B = 1 TEMP2 000733 TWOB 06 Ve = 000002 XDONE 003353 
ST.DBN 001326 R 002135 TWOC 001465 Vv = 000004 XEORCT 003654 
ST.DOF = 2 THREB = 000011 TWRD 001444 V4 = 000005 XFLIP 003616 
T:DR = 000040 TILOP 004027 UDAFM = 001000 G WLOOP 003770 XNGBLK 003574 
T.ERB= TILOP1 004034 UERR 00243 weté«‘s: 01 XNOINC 0036 4 | 
ST-ERR= 000374 TIMER 002627 UHASH 00833 BLK 000721 003331 
ST-FO = 002000 TIMLOP 003767 UHKIP 003340 WRCMD = 122600 XPERR 003670 
ST LIN = TIMLO1 003763 UHKIP1 003364 WRFLG 00122 XPNGRD 003631 
ST.LBN 001323 TIMLP 002632 UID = 000000 WRITE = 000003 XPRET 00 
ST-PS = 00000 TIMTBL 003330 UNIT 000740 WRITE? 003260 XSKIP1 00303 
ST.RBN 001324 TIMVAL= 100000 UNITBD 003714 WRITE2 003465 XSKIP 003137 
ST:RU = 000001 TKIP1 003045 UNITCN 003705 WRITES 004117 XSKIP$ 0031 
ST.SR = 000020 TKIP11 003242 UNITRT 003713 WRITES 003225 XSKIP4 003211 
ST.WE = 000010 TKIP12 003165 UNNO. 000741 WRITES 003115 XSKIPS 003237 
ST-WP = 170000 TKIP13 00327 UNSEC = 000175 WRITES 003260 KIP6 003 
ST-XBN 001325 TKIP14 00326 “ERI 000 ITE9 004057 XSLEEK 0030 
SWAP 003231 TKIP2 003046 UN:ERR 000715 WRITIO 004630 XSLEK2 003105 
001443 TKIP3 003252 UN:ERT 00071 WRITI2 003254 2 0036 
TALIP1 002111 TKIP4 003933 UN:SEK_ 000720 IT1S 904305 003 
003010 TKIPS 003154 UPDATE= 0000 URN 3332 Y= 0001 
TALKDN 002052 TKIP? 003212 UPDPNT 001471 WRNLN = 000040 YES 003243 
TALKIP 002107 TKIP8 003130 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 4256 WORDS ( 17 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
2B: UDAFML/C=S$DMACRO,B: UDAFML 





SEQ 372 


I 13 
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£0 373 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE $-2 eet 
CROSS REFERENCE TABLE <CREF vOC 00 5 


CKR 82-85 82-874 


7# 46-91 47-184 52-58 54-265 


| 
| 
CLHERE 82-74 82-63 
CLRLP 80-98 80-11 
CLSKP2 78-42 78-514 
CLSKP3 78-14 78-56 78-588 
CLSKP4 78-40 78-57# 
3-3434 47-69 48-7 54-21 557 
CMPDAT 3-548 47-92 4-44 54-104 
CNLP 16" 30-4 
CNLPI 15#@ 30-45 


CNT 1 
CNTCYL _6-30# 46-35" 46-53% 46-107 46-112 52-15* 52-17* 52-18% 52-107 52-114 52-116 88-105* 88-106" 88-157 


CONBAD 
CONBLK 6-64 19=5 19-21 62-13 65-10 67-13 72-9 73-45 75-13 82-19 82-71 - - 7 
84-1 2 86-21 87-20 89-5 89-22 90-15 82-88 83-8 83-6 


| 
CONDO1 30-53 
Cc 14 0-32 35-008 
CONER1 18 0-20 O-Si# 
CONERR 30-30 3 
CONEXT 36-9 36-124 
CONGRP 91-19 91-31 91-45 92-44 
CONINT 38-214 45-11 
CONL 30-35 30-444 
CONON 23-20 23-404 
COUNT 6-484 4 


4-7* 44-29% = 44-30% = 44-33% 44-83% 47-78 49-72% 49-81% 51-7% 62-8+ 62-57* 62-132* 62-136 
62-139* 73-43% 73-118 73-1351% 73-132* 73-135* 78-1 78- 78-41 78- 78- - - 

B7-1ge 87-99" B7-960 -B72100 6* 8-38+ 8 8-52 8-55* 82-6 82-61%  82-62+ 
5-49 5-784 21-6 39-6 40-4 41-27 41-46 41-70 43-4 62-142 


14 44-12 


38 
cs oo¢e 82-714 84-22 84-84 
cs! 86- 87-28 89-54 


CSKIP1 47 47-108 
CSKIP2 47-61 47-654 
CSKIPS 47-161 47-1644 
CSKIP6 47-1435 47-1478 





ome 








UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE S-3 
CROSS REFERENCE TABLE (CREF V04.00 ) 


CSKIP7 
CURBN 


47-118 


39-935 


88- 
52-101* 
46-75* 
63-118* 
83-25 
62-11% 


-100 
88-154* 


88-5* 


88-82 


25-26 


26-18 


46-101* 


88-6* 


88-111 


25-32 


26-20 


73- 
86-100* 
49-40* 


62-134 
88-34 


90-67 


26-21 


49-25 


87-10* 
49-44 
88-89 
73-130 
56-6t 


50-20* 
91-21 


88-36 


91-24 


26-34 


49-30* 
6 


87-12 
52-29 
88-102* 
87-11% 
58-9 
50-40* 
91-29% 


58-17% 
71-90* 


88-62* 


75-19 


26-404 


49-30* 


50-41% 
91-33 


58-18* 


71-91% 


87-93* 
63-11* 


56-95* 
91-41% 


78-17% 


71-93 


50-36 
Se-19° 


544 508 
87-38 


52-104% 


87-93 
67-7* 


56-96" 
91-58 
78-18 
52-82* 
73-60 
88-77% 


71-94 
88-84+ 


90-21 


86-22 
52-31 
73-138* 


50-14 
73-33 


86-17% 
87-83 


54-266 


P7=94 
11-8 


56-103* 
91-67 


78-34 


54-85 
73-1448 
88-94% 


86-16* 
88-113 


86-24 
52-32 
735-1418 


50-16 
73-102 


87-95 
73-6* 


56-107* 
91-74% 
78-36 
54-255 


SEQ 374| 
| 


56-18 
$e-73 
71-118 
-31 
87-95 
56-78 


75-7 


56-177* 
91-78 








AFM = UDA FORMATTER DMACR 


UD X04.01 
CROSS REFERENCE TABLE (CREF V04.00 


DBLEN 
N 


79-78 


38-124 


46-19 
46-32 


12-21% 
73-114 
11-36 


38-166 


13-191 
78-62 


47-56 


g5-AUG-82 14:02:32 PAGE S=-4 


46-30 
47-17 
77-60 


38-178 


49-14 


17-11 


37-85 
49-48 


25-184 


49-16 


77-71 


38-187 


71-82 


44-6 


38-32 
49-56 


47-171 
38-150 


91-9 


71-159 


62-40 


38-44 
56-82 


52-45 


40-26 
63-22 
91-11 


91-13 


71-185 


76-12 


38-56 
56-90 


71-197 


78-10 


38-71 
59-10 


62-95 
46-99 


69-14 


71-206 


79-121 


$3-91 
60-10 


65-36 
46-111 
71-17 


81-14 


82-43* 
92-5* 


79-123 


38-111 
61-22 


67-99 


47-29 
71-31 


93-7 


38-120 
1-22 


72-37 


47-46 
71-235 


38-191 
91-34 


73-76 


52-21 
72-73 


92-32 


38-219 
91-59 


75-101 


52-90 
73-38 


84-17 


39-14 
91-84 


82-45 


52-99 
73-113 


J 


Mm 13 


' 
j 


} 
SEQ 376 
AFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE S-5 | 
CROSS REFERENCE TABLE (CREF V04.00 ) | 
47-548 47-188 | 
46-95 47-538 | 
46-117 46-1208 
7 51-48 
46-40 46-46 G7 =44 
46-12 46-20 46-294 | 
49-198 
18-9F 18-16 
3-618 21-13 
G7=144 54-97 67-48 75-467 84-49 86-61 87-56 | 
$302 47-89) 47-142 54-41 54-95 746 75-45 Bh-h? 86-59 87-54 | 
6-19 38-209 56-13 83-3 
5-152H 38-224 48-31 48-34 49-58 49-86 49-94 55-31 55-34 56-92 56-174 56-194 
51474 41-28% $2-62 
5-48 | 
70-14 70-414 
47-140 47-146 47-148 47=1548 
3-754 41-28 
3-240" 17-8 17-10 
5-57 -5-BS# =—-17=25* 
5-1438 47-55% 47=159% 47-169" S4-7% 54-199" 54-2228 
3-297# 54-174 63-108 
5-170# 41-13% 52-69" 54-171 54-200 54-2108 
51494 47-54% 47-102" 47-109" 47-165" 47-167 54-6% 54-55% 54-61% 54-217% 54-2208 
5-146# 41-12% 52-69 63-23 
“358 46-15 4Gn17* 46-23 46-25% 47-1608 52-124 S4o1528 Sh-212" BB-Gs BB-75e BB-97* 88-1618 
W-e5# 2-111 65-51 67-83 G7=115. 72-53. 78-91 75-62 75-117 85-55 84-64 BA=116 86-76 87-71 | 
12-72, 13-49 «13-72, «13-115. 13-221 14-30 17-B8# ~=—19-23. 30-50 31-15. 32-32. 4 h-BB 46-120 $2135 
62-159 65-78 66-54 67-127 70-52 72-79 73-161 75-138 76-30 77-94 82-90 B4-128 86-106 87-101 
62-126 62-1578 
$-748 21-7 43-5. G37 
13-484 13-57 13-59 
93-12 94-4 
22-25 35-6 
a! 35-2 | 
35-20. 35-244 
3-192" 38-9. 46-10 75-133 77-86 | 
3-1934 38-11 52-8 62-147 | 
31944 46-26 62-7 | 
3-195# 52-66 52-121 63-11 
3-1964 52-80 71-8 73-6 
3-197# 57-8 = 71-22 71-37 71-214. 71-237 75+? ~—Ss77=14—Ss«77#53—s BE“? 
3-198# 52-77 71-32 
3-199" 59-43 56-46 
3-200# 71-200 71-209 71-245 77-47 86-13 90-7 
3-150# 56-158 | 
71-418 71-205 
1- 71-198 71-202 
-724 90-78 


90 
35-1274 40-7 41-48 41-72 62-145 


5-1614 46-14 46-18 46-22 46-42* 49-73% 56-31 56-110* 77-30" 77-492 77-62% 77-75% 77=77# 77-82 
56-180 57-44 








a a a — + 


SEQ 377) 


N 13 
















UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE S-6 
CROSS REFERENCE TABLE (CREF V04.00 ) 


FCTAVL 375168 35-10 38-7 52-9 56-97 62-141 75-132 77-16 77-55 77-90 
234 oni 77-89 


| 
| 
! 
/ 
} 


85-12 86 
FCTCKD 86-85 86-944 
FCTCKE 86-95 86-1044 
FCTCL1 86-30 86-92 


86-284 
FCTCNT 5=174# 46-39% 46-45% 49-83" 71-15 71-20* = 71=212* «=71-233) —-71-247% =71-247* 75-8 75=125* 75-127* 76-15 
76-29 77-12 = =77=51* = 86-48% 86-15* 86-97% 86-101" 86-105 90-10 90-65 0-74 90-79% 90-79% 

FCTCPY Pt sf 40-8* seis genie 62-138* 62-146* 65-63 65-65 67-69 72-65 72-67 73-103 73-105 75-68 

FCTEMT eSene 46-48 49-61 49-75 56-99 56-112 57-5 77-32 
FCTFMT 7-355" 40-10" 40-11% 62-121 62-139 67-81 75-71 75-82 84-82 86-87 90-66 90-75 


9-24 
FCTNPD 5-176 38-192* 38-193* 62-136  86-5* 86-101 
FCTPTR 5=173# 71-39% 71-40 71-84 71-161 = 71*187) 71-192 9671-203 


> °] 


FCTRCT 71-84 

FCTREV 5-184# 46-13 46-18% 46-21 46-43* 77-82+ 
FCTRLP 90-144 90-69 

FCTSK1 71-89 71-964 
FCTSKP 71-83 71-95 71-1004 
FCTSLP 71-160 71-1664 

71-35 71-207 = 71-2114 

FCTSZ 3-914 40-10 

FCTUSD 79-16 79-18 79-152 
FCTWRT 90-74 

CWERR 71 
FDAT 53-2794 62-63 
FOLL -5# 

ERR 46-89 46-1154 47-182 


F 
dimry 29-5 34-124 35-7 36-7 


FKIP9 55-39 55-424 : 
FKP1 48-33 48-36 48-384 ° 


FLAG 5-141# 12-61% 12-67* 13-25% 13-42e 3 =0913-50* 8=69135-52* 3913-742 = 29-98 29-18* 35-10" 36-10"  38-7* 46-11* 
6-19 46-350* 46-36% 46-48% 47-56% 49-14% 49-16% 49-61" 49-75% = 52-98 S2-71* 52-75 52-74% 52-752 
52-120* 54-8 54-109* 54-119% 54-122* 54-153* 54-186% 54-191* 56-15" 56-26% 56-30" 56-97% 56-99%  56-112* 
56-118* 56-120* 56-127* 57-5* 62-21* 62-127 bs gy 62-141* 62-155 §$3-119* 71-82% 71-159% 71-185" 71-197 
71=206* 73-107" 74-19% 75-129" 75-131 75-1352 ~16* ~32* “55* 77-84% 77-89 7-90* 146" 86-94% 

FLAG1 5-142 12-39% 12-41% 14-25% 17-8 17-10* 17-18% 23-7% 23-198 ¢3-51° 25-7* 25-9 25-9 25-92 | 
2 25-16% 25-16% 25-2 25-59% 27-12% 28-17% 28-24% 29-118 0 


~7e 30-34" = 30-42" = 50-44" = 36-128 | 


CROSS REFERENCE 


35-2074 
5-2 









UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE S-7 
TABLE (CREF V04.00 ) 


54-172* 
81-17* 


30-42 


52-51 


54-167 
47-158 
54-242 
56-19% 


76-11 


44-594 


44-76% 








88-144% 88-151* 


ee ee ee SS 


\ 
\ 
\ 
\ 
\ 
\ 
| 
{ 
\ 
\ 
\ 
\ 
{ 
| 
\ 
} 
} 
} 
} 
} 
} 
} 
} 
} 
} 
} 
} 





SEQ 379 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 3-8 | 
CROSS REFERENCE TABLE (CREF V04.00 ) 


HASH 69-44 71-54 71-119 
AD 4 


HD. r\eee 47-157 9-78 54-189 56-169 63-48 88-57 88-149 
HD.CLR “1468 38-67 38-87 44-36 -64 47-156 49-26 49-69 49-77 3¢-18 54-118 54-163 54-180 54-188 
54-206 56-21 56-57 90-198 56-131 56-161 56-168  59- 0- 63-30 63-52 63-68 63-82 63-92 
63-1 7i- 71-108 = 71-11 71-136) 0=— 71-142) 71"156 71-174 1-182 77-68 78-31 82-75 88-56 88-148 
89-9 9 91- 91-39 91-72 91-90 
CUR a 4 46-49% 46-52e 47-117 949-27 
1478 9 48- 91-28 


“1418 54-69 e514 56-22 65-31 71-47 72-32 73-71 87-40 91-91 

RBN erty 54-71 54-115 = 554-134 54-244 55-16 56-58 56-116 56-142 71-112 82-9 83-34 91-73 
XBN sides 46-5 48-14 62-90 75-27 75-96 86-45 88-38 88-130 90-35 91-40 

HERE 47-1124 47-163 47-168 





41-92 41-95 43-6 46-34 46-61 46-72 47-19 49-36 52-27 52-39 52-86 56-9 56-71 59-15 
61-12 65-9 67-18 72-11 73-47 82-18 83-11 84-15 87-19 88-12 88-16 88-92 91-48 91-62 


9- 69-204 
HOLD 5-150 63-18% 63-19% 63-21 63-37 66-37 70-35 71-27* 71-28% 71-30 71-59 71-124 «=73=34* «73-35* 
73-37 73-39 73-40 73-41 73-42 84-20 87-5* 87-6* 87-8 87-10 87-11 87-12 87-13 
rab} Sd 46-55* 26-37° 46-97 46-100 46-101 52-83 52-91 52-92 58-13" 58-15* 71-50 
HPREA Pot he $5.30" 46-79 47-172 52-46 54-253 62-94 65-35 67-98 72-36 73-75 75-100 82-44 83-38 


HSLIM 5-294 47-80 sin ise 54-32 54-76 62-92 65-33 67-23 67-96 72-34 73-73 75-21 75-98 82-41 


-36 84-24 86-47 87-42 88-435 88-135 90-37 
HSTHI 35-1914 16-8 
HSTLO =1 16-7 ¢3-1 
IMAGE 3-348 32-12* 2-13* 32-14e 32-15* 32-18 32-21 32-24 32-27 38-220 41-10 46-83 47-111 47-176 | 


48-8 48-35 48-37 49-13 49-37 49-88 52-50 54-63 54-155 54-240 54-257 55-8 55-35 55-37 
56-11 56-67 56-176 39671-2356 )=— 71-239) 71-244 
IMLEN 53-3068 41-4 47-166 48-40 49-53 49-85 49-95 54-160 54-219 54-246 55-40 56-24 56-60 56-87 


| 
| 
HIBYTE 3-122# 12-18 20-14 25-9 30-16 33-13 34-14 38-23 38-27 38-59 38-100 38-139 39-9 41-29 
| 
| 
IMSTAR -190# 46-80 47-173 49-60" 49-93 49-102* 52-47 54-254 56-94% 56-193 56-202 


INI 
INIRCT _3-2288 52-71 52-74 56-30 | 


day 13-158  13-209# 46-90 47-183 52-57 54-264 


INST 53-2778 62-36* 7-35 77-37* 


| 

5-5 5-BO# = =19-13* 19-14% 19-15% 46-64% 46-65% 46-66% 52-31% 52-328 52-338 54-266 3-113 116* | 
63-121* 71-218 71-221* 71-2248 73-1398 1422. 73-145 82-80" 82-81" 82-82 88-24% 88-25¢. 88-26" Salles 
| 
| 
4 








D 14 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE S-9 
CROSS REFERENCE TABLE (CREF V04.00 ) 


ISKIP 


1172 
rae 


-118* 


6-58) 
ie18. 


55-64 


56-1814 
56-1134 


8 
13-85# 


89-14% 89-15" 89-16 


32-126 ee 3$-3}° 79-119 
=14 52-15 52-16 52-17 


5 
38-75 
38-73* 40-20 40-21 50-11 50-31 
38-46* 38-70 59-9 
38-38 38-99 52-85 56-8 59-14 
91-47 91-61 91-79 
54-270 
54-2714 


54-107 54-1094 


54-474 


54-221 


56-944 
56-1844 


56-155 56-165 56-1724 


54-564 
44-43 47-116 48-13 54-68 54-114 
66-13 67-12 70-12 71-46 71-68 


59-5 


50-32 


61-1 


54-1 
71 


1 


5 
-13 


7 
3 


59-6 


63-18 


65-8 


54-176 
71-144 


60-5 


63-19 


67-17 


54-243 
72-14 


60-6 


71-27 


72-10 


55-13 
73-50 


75-12 


71-28 


73-46 


56-115 
78-25 


75-15 


73-34 


82-17 


63-47 
82-22 


— -_ af 


seo 380) 


90-14 


73-35 


83-10 


63-54 
83-14 





~——- —-——---- - ey 


Q 381, 
LOAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE $-10 rome 
CROSS REFERENCE TABLE (CREF V04.00 ) 


LOOPP 
LOOPP2 62-39 62-554 62-156 


| 
| 
} 
| 
“58 62-708 = 62-124 
54-2698 | 

LOVER2 54-239 54-2524 54-268 | 
54-24 

| 

| 

| 


LSKIPS 54-193 54-213 54-2164 
LSKIP4 53 
LSKIP7? 54-66 54-72 54-2184 


LSND 54-151 54-192 54-1994 
LTO ow 13-100 41-63* 41-64* 


° 93-734 94-39 0 94-41 
M.ER 93-224 94-5 94 - 
M.ER20 93-764 94-41 94-42 94-43 

eER21 93-798 94-43 4 94-45 

° 93-824 94-45 

° 93-258 94-7 94-8 94-9 


” 9 
M.ERB 93-408 94-17 94-1 94-19 





UDAFM = UDA FORMATTER DMACR X04.01 g5-AUG-82 14:02:32 PAGE S-11 
CROSS REFERENCE 


M.ERS 


434 


6-114 


47-91 


TABLE (CREF V04.00 ) 


94-20 
86-10 


35-17 


62-117* 
-103* 


77-56 
47-64% 
30-27 


47-99 


77-27 


44-31 


54-43 


94-21 


23-25 


56-1664 


71=193* 


9-20 
32-17 


47-107" 
4/-63* 


46-27 
62-123 
86-29* 
77-848 
47-164 
30-29 


47-1044 


44-38 


54-103 


23-42 


54-10* 
47-64 


52-128 


54-12* 
30-314 


44-61 


79-116 


5-18 
30-52* 


54-14% 
47-162* 


62-148 


44-798 


79-142 79-150 79-154 88-166 
35-16 35-198 

54-59* 

47-164 54-11% 54-12 54-158 
75-134 77-87 

65-63* 65-67 65-72* 72-6% 
87-16% 87-78 87-88  90-9« 
54-216 


93-15 


54-16 


72-59% 
90-62* 


54-2148 


72-65* 
90-68* 


54-216 


72-69 
90-72 


72-748 
90-77* 


a - 


SEQ 383 





UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE S-12 
CROSS REFERENCE TABLE (CREF V04.00 ) 


46-50 47-178 
59-54 


OFFS 3-778 49-34 56-69 92-36 
_— 5-364 63-43 66-7 66-36* 70-6 70-34* 71-65 71-130 


6-368 38-149 40-25 46-110 52-20 52-108 52-112 71-16 90-11 


OV... 5- - 5-34 38-5 38-5 38-5 38-54 46-8 46-8 46-8 46-84 49-10 49-10 49-10 
49-10# 52-5 52-5 52-5 52-54 56-2 56-2 56-2 56-24 58-6 58-6 58-6 8 62-5 
62-5 62-5 62-54 63-2 63-2 63-2 63-24 67-2 67- 67-2 67-28 8-7 a | 68-7 
68-74 73-2 73- 73-2 73-24 75-2 75-2 75-2 75-28 76-7 76- 76-7 76-74 77-7 


85 
90-24 91-2 91-2 91-2 91-24 93-5 93-5 93-5 93-54 94-46 94-464 


on ch ire 

| OVE-F¢ 25-24 28-5 

OVE .F4 

OVE.FS 68-78 73-2 

OVE.F6 75-28 76-7 

OVE.F? 73-28 75-2 

OVE.FB 56-28 58-6 

OVE .F9 of 91-2 

OVE.G1 38-54 46-8 

OVE.G2 76-7# 77-7 

OVE.G3 77-78 78-5 

OVE:G4 78-58 85-2 

OVE.GS 91-28 93- 

OVE.G6 93-5# 94-46 

OVE.G? 49-108 52-5 

OVE.GB 58-68 62-5 

OVE.H1 67-28 68-7 

OVE.H2 85-28 90-2 

OVE.MN 5-38 -§ 

OVER 38-201" 38-208 

OVER1 7-1 47-1874 

x. 4 bt bt we bs ee ee ee es! le 56-2 56-28 = 58-6 t=«S 
aa a - /- \. , . . a “54 i 28 68 

7 ee Se: Se 2 a 3 3 ie 6s | lUelU, CO, 

OVL.F1 5-205 49-10 49-10 49-108 

OVL-F2 208 56-2 56-2 S624 

OVL-F3 5-211 638-2 63-2 63-28 

Ovi-te 5-216 67-2 67-3 7-54 

OVL-FS 5-217 73- 73- 3-54 





H 14 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE S-13 
CROSS REFERENCE TABLE (CREF V04.00 ) 
OVL .F 5-220 76-7 76-7 76-78 
#9 37338 75-2 75-2 75-28 
oF 5-226 658 58 8- 
OVL.F9 5-229 91- 91- 91-28 
Gi 5-253 46-8 46-8 = 
ee 5-23 77-7 77-7 77-78 
G 5-¢3 78-5 78-5 78-54 
-G4 5-238 85-2 85-2 85-24 
OVL.GS 5-241 93-5 93-5 3-34 
G6 5-256 ~46 94-46 94-464 
OVL.G? 5-244 52-5 52-5 52-54 
OVL.GB 5-247 62-5 62-5 62-54 
-H1 =5-250 68-7 -7 -7# 
OVL.H2 5-259 90-2 90-2 90-24 
OVL.MN 8 5= 5-3 38-5 38-5 38-54 
OVLBLK 5-262 62-49% 62-50" 62-51% 62-52 76-21% 76-22* 76-23% 76-24 
OVLEN 3-188# 24-14 
TBL _5-2054 14-8 15-12 15-30 24-1 


OVL 2 
OVRLAY 14-11 15-15 15-33 16-74 62-54 76-26 
OVS.F1 46 


Ov 5 
OVS.G1 5-254 24-6 38-54 


PAGE 15-10# 17-15 46-77 47-6 51-6 52-12 52-24 52-44 52-67 52-78 52-81 52-122 57-9 63-41 
66-41 70-39 71-23 71-33 71-38 71-44 71-63 71-128 = 71-201) 7121 71-21 - 71- - 
o-18 778% oB-5d B68 Reni “6 2 210 215 71-238 1-246 977-15 


PARMTB 79-4# 79-118 79-133 
PBNBUF Pat id 46-41 46-42 46-43 47-8 51-8 57-7 71-213 + =76=25 77-13 77-18 77-38 77-46 77-52 


PBUFE 79-4 
PCNT 6-474 46-38 56-109" 56-178* 57-10" 77-64% 77-74% 





nc — 


= UDA FORMATTER DMACR X04.01 


UDAF 23-AUG=82 14:02:32 PAGE S-14 
cross REFERENCE TABLE (CREF V04.00 ) 





PCON 
ONE 


PD 91- 91-42 91-75 91-93 
PERR 70-42 70-50# 
PHYSA _5=3 -3 5-3 5-3 5-34 | 
PLEN 79-47 «= 79-538 | 
K 70-58 70-40 | 
PNGPG 63-61 63-97 66-44 
0-4# = 71-101 71-149 71-167 | 
70-308 70-45 
PRET 70-16 70-488 | 
PRIM 3-219 54-119 54-122 54-153 54-186 56-15 = 56118 56-127 | 
PRIMRB 20-78 54-130 56-137 64-7 69-7 | 
PRMBUF —5-341# 54-135 54-142 54-147 56-143 56-149 56-152 86-6 86-9 BE~40BE~64 87-34 87-59 88-32 
PRMY 3-149 56-125 71-86 971-98 = 71-164 «71-189 71-242 
PROD = 3-98 ~=—_5~67 
QUESDN 3-244" 25-19 28-24 29-11 36-12 
RB.CMD 3-438 47-71 = 4B-19* 54-23 55-19 | 
RB-HI 3-424 «47-76 «= 54-28 
RB.IM 3-448 «47-96 54-48 
RB.LOW 3-418 47-74 54-26 
RBNBUF  3-345# 54-224 56-43 56-52 
RBNLBN 5-116 38-92e  38-93+ 38-156 38-157 38-172 38-173 40-23. «50-13 «50-34 «73-27 = 73-28 
RBNPCY 5-121 38-57* 38-58 38-90 “9 
RBNRPT 3-303 54-136 56-144 82-11 
RONTRK 3-858 20-19 38-50 38-97 52-94 © 56-40 60-14 61-17 BBG «91-53 
RC.FRE 3-154 63-76 66-16 70-15. 71-69 71-134 
RC-NUL 3-158 66-14 70-13 73-152 74-9 
RC-PRV 3-155# 63-83 63-93 71-80 71-183 
RC.SND 3-156 63-69 63-105 71-109 71-157 71-175 78-26 
C:UNU _3-157# 63-539 71-71. 71-137 71-143 
RCBUFE 79-718 
RCD -B4-788 = B4-123 | 
RCFIX 73-133 73-1484 i 
RCFXLP 72-698 72-75 | 
CINDN 3-263 73-126 73-157 | 
CINER 73-106 73-1594 
RCINIT _3-2028 73-107 76-19 | 
RCINLP 73-548 73-136 
RCL 84-228 += 84-76 
RCLEN 7 79-( 38 
RCLP 73-108 += 73-12 
RCLP2  73-56# 73-104 | 
RCLP3 73-1538 73-156 
RCLP4 73-1348 73-158 | 
RCLP6 73-127 73-1378 
RETBUP S-Sea8 GS-42. GS-69" GS-98 65-23 661267306751 «6789708117166 71 102 71-129 7 | 
7i-168, 92-24 © 98-95 Bans] «Sansa $8595 | 
RCTCK 85-13 87-44 
RCTCKD 87-82 87-914 
RCTCKE 87-90 87-998 | 
RCTCL1 87-178 87-89 | 
RCICLP 87-158 87-97 | 
RCTCNT 6-46# 63-36 66-30 66-31 66-45* 70-29% 70-30 70-43" = 71-58* 71-123" 78-19% 78-21 7B-47* «7848s 
| 
j 
| 
a 


| 
| 
' 





SEQ 386 


UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE S-15 
CROSS REFERENCE TABLE (CREF V04.00 ) 


RCTERR 65 65-764 
RCTFMT “ese 40-12 40-13* 65-61 65-70 67-71 72-63 72-72 73-101 73-135 78-48 84-72 87-84 


| 
~64 
5-177# 38-167* 38-168 73-132 87-4* 87-96 

-68 87-788 


RCTINI 7% 

RCTL 

RCT 87 

RCTRLP E38 ~66 

RCTSZ -S2# 40-12 

RCTTOT 5-158# S2-22*  56-28* 
RCTUPD 63-114 

RCTWLP 65-7# 


65-64 
RCTWRT 71-100 71-148 71-191 72-54 


ROBLK 5-20# 21-12 47-70 47-82 47-88 47-121 947-134 = 54-22 54-34 54-40 54-75 54-87 67-22 67-36 
86-49 87-29 87-44 88-31 88-45 88-54 88-123 88-137 88-146 
RDBUF 53-3384 6-12 47-78 47-128 = 47-147" 47-149 847-151 = 554-30 54-82 54-101* 62-24 62-35 62-53 6 
62-70 62-85 62-150 71-21 71-2 71-36 71-39 71-88 71-195 871-208 73-9 73-14 73-63 73-121 


RDCMD 3-3014 47-83 47-135 54-35 54-88 67-37 75-36 84-38 86-50 87-45 88-46 88-138 
watey 3-296# 47-104 48-20 54-56 55-20 


RDONE2 
READ 3-508 47-85 47-138 54-37 54-91 67-42 75-41 84-43 86-55 87-50 88-49 88-141 


READIO 87-444 87 87-74 

READ11 67- 67-58 67-66 
2 47-1344 
READS 54-34# 
54-874 

READ? 75-35# 75-57 75-65 

READ8 -37# 84-59 84-67 

9 §=686-71 86-79 

REBUFE 79-1024 
13-794 13-1635 45-10 


RECAL 

RECIR 3-309# 49-99 49-102 56-199 56-202 

RECOV 6-S0# 41-30%  62-109% 62-119 65-49% 65-59 67-61* 67-74 67-78 67-113" 67-121 72-51* 72-61 73-89* 
73-99 75-60* 75-75 75-78 75-115* g3-1¢5 83-53* 83-61 84-62 84-75 84-79 84-114" 84-122 86-74* 


RECTMP 9 6-52# 17-25 41-31% 62-107 62-113* ge" 65-47 65-53* 65-59% 67-59 67-65* 67-74% 67-78% 67-111 

72-49 73-87 73-93e =73-99% = 75-58 75-64% 75-74% 75-78e 75-113 75-1198 
75-123* 83-51 83-57* 83-61* 84-60 84-66% 84-75% 84-79% 84-112 84-118* 84-122" 86-72 86-78 86-90 
87-67 87-80"  87-87* 90-52 90-58  90-64* 


79- 79- 
REPEAT 3-246 23-7 23-21 25-59) 27=12— 28-17 
79-334 


RETRY 13-5 13-58 13-96 13-160 14-17 15-39 = 41-39 
-103 5-4 7-55 7-107 = 72-45 73-83 75-54 75-109 

RE VBUF 342% 78-15 8-53 5 83-1 

REVCNT 5-172# 52-63 52-68+ “118 = 54-211* 63-109 














SEQ 387| 





UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE S-16 
CROSS REFERENCE TABLE (CREF V04.00 ) 


7-5)88 35-23 33-199 54-191 56-26 56-120 | 


83- 
S-122# 20-25* ¢3-$Se 54-131 954-132 956-139 56-140 64-10 64-11 64-20" 64-21% 64-22* 69-10 69-11 
a a 5 $o-§'* 69-22 





RTY 35-2314 13-25 13-42 13-50 13-52 13-74 
RTYCNT 6-41% 47-103 54-54% 79-131 












RUN 
RW .BUF 3-3 # 43-958 47-129% 54-31% 54-83% 62-86% 65-26% 67-31% 67-90% 72-27 73-66% 75-30% 75-91% 82-35% 


83-29e 84-32* 84-91% 86-41% 87-35% 88-33* 88-125" 90-30« 
RW.CMD = 3-350# = 47-73% = 47-133* 54-25% = 54-86% = 62-84% = 65-22% = 67-35% = 67-88% = 72-23% = 73-62% = 75-34% = 75-89% §=— 8 2-318 
me Oat rhe 84-36* 84-89% 86-39% 87-33% 88-42% 88-134 90-26% 


RW.DUM  —3-26# = 47-B1e = 4 7=123% 54-33% = 54-77% = 62-93% = 65-34% 96 7=24% 967-97" =. 72-35% = 73-74% = 75-228 = 75-99% = 82-42 
83-37* 84-25% 84-98 86-48% 87-432 88-44% 88-136 90-38* 
RW.EDC Rs 47-152 = 54-149" 56-14% 56-154% 62-72* 65-25% 67-53 72-26* 73-65* 75-52 82-34* 83-4* 84-54 


RW.HI 3-298 47-77% = 47"127% 54-29% = 54-B1* = 62-91# = 65-32% = 67-29% §=— 67-95% = 72-33% = 73-72" = 75-28* = 75-97" = 82-40 
84-96 88-55 88-58* 88-131" 88-147 88-150" 90-36s 

RW.LOW =—5-28H 47-75% = 47"125% 54-27% = 54-79% = 62-882 = 65-28% §=— 67-26% §=— 67-92" = 72-29% = 73-68* = 75-24% 39 75-93% =. 82-378 

83-31* 84-27% 84-93% 86-43% 87-37% 88-35"  88-127* 90-32 


& 
53-2998 47-130 48-26 54-84 55-26 67-32 75-31 84-33 86-36 87-30 88-40 88-132 





SCR 5-30 - 5-79# 19-10 8-21 38-64 8-84 38-126 40-9 41-90 42-4 46-29 46-59 46-70 
49-33 52-13 52-25 52-37 52-84 z5-168 56-7 56-39 56-68 56-1355 58-10 62-14 64-6 65-7 
67-10 ?e- 73-44 82-16 82-7 83-5 84-7 86-20 87-17 88-10 88-14 88-90 88-104 
89-11 91-46 91-87 92-19 92-28 92-35 

SECCNT 6-26 47-68% 47-105* 48-6* 48-42% 49-12% 49-31% = 49-63% = 49-908 35-388 54-57* 55-6 55-42  56-10* 

seneeal 28-33" ; “359 56-62* 56-66%  56-181* 71-26% 71-195" 78-20% 78-45" 88-23"  88-63*  88-85* 88-112 88-155 


SEQ 388 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE S-17 
CROSS REFERENCE TABLE (CREF V04.00 ) 


SECSI6 $-50e8 5-167 56-45 62-149 66-23 70-22 73-7 
S-113# 38-112* 38-113* 47-23 47-40 88-107 

SECTRK 5-111 38-102* 38-105* 38-107 38-108 38-215 39-13 41-7 46-98 47-28 47-45 47-68 48-6 49-12 
49-49 = 49-51 49-63 5 Py) 55= 56-66 56-83 56-85 56-207 62-19 75-17 86-26 88-23 
88-78 88-85 88-112 90-19 91-20 2 


1292 92-4 92-51 
SEEK Eat tad 19-16 46-67 46-92 47-185 2-34 52-59 54-267 63-122 71-225 73-146 82-83 88-27 88-119 


SEEKS 13-148 13-161 13-1654 

SEEK4 13-1544 13-166 

SEEKS 13-342 13-1584 

SEEK6 13-146 13-1534 

EEK? = 13-150# 13-151 

SEEKER -36 52-1334 

END 3-524 13-19 13-92 44-16 
ERBD 28-6 28-154 

SERCON 22-43 28-44 


SERNUM (5-183 28-19% 28-20% 28-21% 28-22% 62-27 73-13 77-40 
SEROK 28-8 28-10 28-12 28-14 28-194 


SIP ~58# 47-67 47-120 54-19 54-74 62-99 65-39 67-41 7-103 = 72-41 73-79 75-4 75-1 
83-43 84-42 84-104 86-54 87-49 88-48 88-140 90-44 . ’ . ote Neate 
SKERR 46-69 46-1184 88-29 88-121 


SKPCNT o3-yen" 39-18* 39-21% 48-9 55-9 


SND 

SNDCNT 6-4 54-183* 54-198* 54-208* 56-157" 78-11 78-39+ 
16-174 62-45 76-17 
78-6 


SRC 

st = 5-48 5-51 5-52 5-53 5-54 5-55 5-56 5-57 5-58 5-77# 12-16 12-23 44-34 
ST.DBN 5-196 42-36% 47-26 50-18 91-26 

ST.DF 12-18 


s 3 
ST.FO 3-176# 12-48 








SEQ 389 
UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE S-18 
CROSS REFERENCE TABLE (CREF V04.00 ) 


ST.IN 3-1778 | 
ST.LBN 5-193 20-11 49-38 42-10* 59-12 1-9 the Fs 63-81 63-91 63-103 65-30 67-28 67-94 71-78 | 
7 82-39 84-29 84-95 87-39 





“16* 54-133 56-141 60-12 64-22 69-22 83-33 91-71 


ST.RU 3-17 12-29 
ST.SR 35-1748 12-44 
-WE 3-708 12-57 
ST.wWP -173# 
ST.XBN at Sa $4.48" 47-43 50-39 62-9 62-10 62-77 75-26 75-95 86-16 86-17 86-33 88-37 88-129 


STACK 
STARIT 5-153 48-11% 48-38 48-41% 55-11% 
START 5-4 14-10 14-16 Fa 15-23 


5 
STASEC abt ad 88-7* 88-8« 88-66 88-68 88-81 88-83 88-84 88-100* 88-101* 88-110 88-113 88-114 


STATST 12-144 12-43 12-47 12-51 12-55 12-60 
STATVL 13-62 13-66 13=141 13-195 langle 18-41% 44-10 


42 
STCYL 3-834 5 ay 65-12 67-11 72-13 73-49 82-21 83-13 84-8 87-22 


3 
TO 5-1694 13-140 41-83 
STPNIC 12-27 12-30 12-33 12-40 12-714 
STRBN 3-804 42-14 


12-15 12-64 12-66 13-13#@ = =13-121 §=13-129 = 13-139 013-172) 13-180 3=- 17-27 


TBLK 5-155# 39-17* 39-20" 48-30 55-30 
23-28 


CLE 13- 13-504 
TEMP 5-374  20-8* 20-10 30-15* 30-16" 30-17" 30-19% 30-21% 30-22 30-36* 30-38 30-40" 37-14 37-158 















UDAFM = UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE S-19 


CROSS REFERENCE TABLE (CREF V04.00 
7-79e = =37-81* 37-84 s5-50° 


7-18 7-21 7-22 38-29% 38-40* 8-41% =4 38-52* 38-53 

8-54 8-65* 69 38-8 #315 “118 38-119 8-128* 38-1351 38-132 38-156* 
38-157 5-38" 8-172* 38-173* 38-176 8-181 38-216* 38-217 8 39-10* 39-11* “12 39-15*  40-20¢ 

40-21* 40-2 414% 1=-5* “ - 41-14% 941-158 - 

47-21% 47-22 47-37 47-38% 47-39 49-42% 49-43% 49-46 


3 74-8 81 2 82-6* 
86-32*  86-33* a 88-79* 88-80 88-107* 88-108 88-109 91-55% 91-56% 91-57 91-63* 91-64 91-65 
TEMP2 atte 63-50* 63-51% 63-58* 63-64 63-86* 63-87* 63-96 71-73% = =71*74% = 71"104 71-140 =71-141* 71-152 
TERR 13-63 13-67 13-704 


TIMER 13-64 13-65 18-254 


IML 
TIMTBL 22-984 26-22 37-32 


49-15 49-19 49-214 49-32 


TKIP4 49-67 49-71 49-82 49-854 
TKIPS 49-39 49-41 49-604 


TKIP9 

TMPTRY 6-518 41-40% 62-103% 62-105% 62-112% 62-118% 65-43% 65-45% 65-52% 65-58% 67-55% 67-57% 67-64% 67-73 | 
67-77% 67-107* 67-109% 67-116% 72-45% 72-47% 72-54% 72-60% 73-83% 73-85% 73-92% 73-98% 75-54% 75-56% | 
75-63% 75-73% 75-77% 75-109% 75=111% 75-118% 82-53% 82-55% 82-58% 83-47% 83-49% 83-56% 83-60" 84-56% | 
84-58% 84-65% 84-74%  84-78« 84-108 84-110* 84-117 86-68% 86-70% 86-77% 86-89%  87-63*  87-65*  87-72+ 

Toract 6-444 38-78 35-73" 35-56 63-20 71-29 73-36 8687-7 

TRKCNT 6-354 46-73% 46-102% 52-40% 52-102% 88-17*  88-86*  88-93* 


ae 3-90# 38-22 46-71 52-38 88-15 88-91 92-20 


5-3 
UERR Hi i +54 16-12 16-21 16-32 


44-63 
UN.ERI 5-12# 13-86% 13-95% 13-96% =13-99% = 4bn 19% 44-208 89 44-23% 944-82" = 46-87% «= 46-8B* = 46-948 = 47-180" 9847-1818 
47-187* 52-54* 52-55% 52-61%  54-261* 54-262* 54-269* 
















UN.ERR 
UN 


00 Pa Oe Cee Pmt be peg OO De md Ee 


5-104 
“114 


13-348 
13-22* 
135-1548 


16- 
79=152¢ 
62-16* 


UDAFM = UDA FORMATTER DMACR X04.01 
CROSS REFERENCE TABLE (CREF V04. 


13-39« 


44-37 


1° 


62-18 
83-17% 
19-98 


3-73 

75-120 
88-164 
79-129 


38-133 


38-122 


7- 
5- 


2 
) 
1 
1 
1 
1 
4 
7 


44-60 


62-131 
63-45 


65-148 
84-11% 
at a 
67-19% 


46-53 


13-58 
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